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L TP I SEARCH USER.S PAGE NO. 1 EO 34 

R2000 PROGRAM DESCRIPTION SlT.l AND SIT. 2 
>2001 FUNCTIONAL DESCRIPTION 

>2002 THE TP I SEARCH ROUTINE DEIEIWINES THE MINIMJM TOTAL VELOCITY TRANSFER TRAJECTORY FRCM A GIVEN TP I 

>2004 MANEUVER TIKE WITHIN THE CONSTRAINT OP A SAFE PBRICEHER. THIS VELOCITY IS THE SUM OP THE IMPULSIVE VELOCITIES 
>2006 FOR THE TP I AND TPP MANEUVERS. 

R200T THE SlT.l RCXJTINE EXTRAPOLATES THE STATE VECTORS OP BOTH VBTICLES TO THE TP I TIME AND COMPUTES THE 

>2009 RELATIVE PHASE ANGLE BETC2EN THE VEHICLES, THE ALTITUDE DIFFERENCE! I. E. THE MAGNITUDE DIFFERENCE OF THE 
>2011 POSITION VECTORS) AND SELECTS A SEARCH SECTOR BASED CN THE SIGN CP THE ALTITUDE DIFFERENCE. 

>2013 THE SIT. 2 RCXnTNE FURTHER DEFINES THE S2AHH SECTOR BY COMPUTING ANGULAR LIMITS AND USES THE TIME THETA 

>2015 SUBROUTINE TO CCMPUIE THE SEARCH START AND END TIKES. THE SEARCH IS THEN MADE IN AN ITERATIVE LOOP USING THE 
>2017 LAFBERT SUBROUTINE TO COMPUTE THE VELOCITIES REQUIRED AT TP I TIKE AND AT TPF TIKE. EXIT FROM THE SEARCH LOOP 

>2019 IS MADE WHEN ’ SOLUTION CRITERIA ARE MET CNORMAL EXIT) OR AS SOON AS IT IS EVIDENT THAT NO SOLUTION EXISTS IN 

>2021 THE SECTOR SEARCHED. 

>2022 CALLING SEQUENCE 

>2023 BOTH ROUTINES ARE CALLED IN INTERPRETIVE CODE AND RETURN VIA OPRET. SlT.l HAS ONLY A NORMAL EXIT 

>2025 SIT. 2 RETURNS VIA OPRET FDR NORMAL EXIT AND TO ALARUMS FOR ERROR EXIT. 

>2028 SUBROUTINES CALLED 

>2029 CSMCCNIC 

>2030 LFMCCNIC 

R2031 TIMB1HBT 

R2032 INITVEL 



2033 


36,2000 




bank 

36 

2034 

REP- 

1 38,2000 




setloc pus 

2035 


36,2000 




bank 


2036 

REF 

I 




COJNT 

38/TPI 

20 3T 

REE 

IT LAST 520 ET.153T 




EBANK= 

RACT3 

>2036 


4=44=4= TEMPORARY 4=44=4 






2039 


36,2000 

00004 

0 

HPE 

2DEC 

157420.0 B-29 EARIH«S MIN. PERICENTER ALTITUDE 85 N.M 

2039 


36,2001 

31568 

0 



2040 


36,2002 

00000 

1 

HPL 

2DEC 

10668.0213 B-29 MOON’S MIN. PERICENTER ALTITUDE 35000FT 

2040 


36,2003 

12326 

0 



2041 


36,2004 

00002 

0 

CD SBC 

2oec 

40000 

2041 


36,2005 

18100 

1 




2042 


38,20 06 

00000 

1 

CL SEC 

2DEC 

15000 

2042 


36,2007 

35230 

0 




2043 


36,2010 

12137 

1 

PIINVERS 

20EC 

.3183098862 

2043 


36,2011 

06033 

1 




2044 


36,2012 

06161 

1 

SECiTHET 20EC 

.1944444444 

2044 


36,2013 

30707 

1 
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2045 





36,2014 

35252 

1 

SEC2U®t 203C 

.9166866687 


2045 





36,2015 

25253 

1 





2046 





36,2016 

67777 

1 

M4NYFEET 2PSC 

-1.0 B-2 


2040 





36,2017 

77777 

0 





204T 





36,2020 

00000 

1 

LIMVEL 

2D0C 

.6096 8-2 B-t 

2FPS 

2047 





36,2021 

30760 

0 





2048 





36,2022 

00000 

1 

DEIMOCN 

2DGC 

.1524 B3 B-29 

500 FEET 

2048 





36,2023 

00114 

0 





2049 





36,2024 

00040 

0 

OP-.002 

2DEC 

0.002 


2049 





36,2025 

30447 

0 





2050 





36,2026 

71220 

1 

SlT.l 

STO 

DLOAD 


2051 

REP 

17 

LAST 

490 

36,2027 

01340 

1 



NOfrEX 


2052 

REF 

10 

LAST 

464 

36,2030 

03663 

1 



TTPI 


.2053 

REP 

22 

LAST 

522 

36,2031 

34041 

0 


SICALL TDECi 

ADVANCE PASSIVE VEHICLE 

2054 

REP 

1 



36,2032 

27057 

0 



LBCCNIC 


2055 





36,2033 

77624 

1 


CALL 



2056 

REP 

2 

LAST 

490 

38,2034 

45372 

0 



LE4STORE 


2057 





36,2035 

77745 

1 


DLCttD 



2058 

REP 

11 

LAST 

542 

36,2036 

03663 

1 



TTPI 


2059 

REP 

23 

LAST 

542 

36,2037 

34041 

0 


STCALL TDGCi 

ADVANCE ACTIVE VEHICLE 

2060 

REP 

1 



36,2040 

27045 

0 



CSMCCNIC 


2061 





36,2041 

77624 

1 


CALL 



2062 

REP 

2 

LAST 

490 

36,2042 

45402 

0 



CS4 STORE 


2063 





36,2043 

77775 

1 


VLCHD 



2064 

REP 

18 

LAST 

541 

36 , 2044 

03540 

0 



RACT3 


2065 





36,2045 

63246 

1 


ABvAL 

ptVL 

/RA/ oD 

2066 

REP 

9 

LAST 

522 

36,2046 

03554 

0 



RPASS3 


2067 





36,2047 

65256 

0 


IN IT 

POOL 

UNIT RP 0D 

2068 





36,2050 

43021 

0 


BDSU 

S3T 


2069 





36,2051 

00045 

0 



36D 

/HP/ -/RA/ 

2070 

REP 

1 



36,2052 

00076 

0 



kflag 

OFF = ♦ 

2071 





36,2053 

43040 

1 


BN 

CLEAR 


2072 





38,2054 

74056 

1 



*2 


2073 

REP 

2 

LAST 

542 

36,2055 

00276 

1 



kflag 

CN s - 

2074 

REP 

2 

LAST 

276 

36,2056 

27754 

1 


STCX/L 

DemiTB 


2075 





36 , 2057 

00001 

0 



OD 


2076 





36,2060 

53435 

0 


VXV 

UNIT 


2077 

REP 

9 

LAST 

522 

36,2061 

03562 

0 



VPASS3 


2078 

REP 

1 



36,2062 

27646 

0 


STOVL 

B2 

ALMOST IT SAVE FOR IT. 2 

2079 

REP 

19 

LAST 

542 

36,2063 

035 4 0 

0 



RACT3 


2080 





36,2064 

46206 

1 


PUSH 

VPROJ 


2081 

REP 

2 

LAST 

542 

36,2065 

03646 

0 



B2 


2082 





36,2066 

51352 

1 


va.2 

BVSU 

RPA 

2083 





36,2067 

50256 

0 


UNIT 

DOT 


2084 





36,2070 

00001 

0 



0D 


2085 





36,2071 

65552 

0 


S.1 

ACOS 


2086 





36,2072 

77715 

1 


PCVL 



2087 





36,2073 

50235 

0 


vxv 

DOT 


2088 

REP 

20 

LAST 

542 

36,2074 

03540 

0 



RACT3 


2089 

REP 

3 

LAST 

542 

36,2075 

03646 

0 



E2 







I 
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2090 





36,2076 

75325 1 

POOL 

SIGH 


2091 





38,2077 

77826 0 

STADR 



2092 

REE 

3 

LAST 

2T8 

36,2100 

61160 1 

STCDL 

THETZERO 

CENTRAL ANGLE 

2093 

REE 

8 

LAST 

519 

36,2101 

00047 1 


XI 


2094 

REE 

2 

LAST 

124 

38,2102 

37746 0 

STCALL XR3 

SAVE INDICES FOR FURTHER USE 

2095 

REE 

18 

LAST 

542 

36,2103 

01340 1 


NOR42X 

♦s ACTIVE AHEAD -= ACTIVE behind 

2098 





38,2104 

77220 1 

S17.2 STO 

VLCBD 

COMPUTE SEARCH SECTOR LIMITS 

2097 

REE 

2 

LAST 

121 

38,2105 

03657 0 


OIS4P 


2098 

REF 

21 

LAST 

542 

36,2106 

03540 0 


RACT3 


2099 





38,2107 

50258 0 

UNIT 

DOT 


2100 

REE 

4 

LAST 

542 

36,2110 

03646 0 


B2 


2101 





36,2111 

75446 0 

ABS 

SORT 


2102 





36,2112 

43352 1 

an 

DAD 


2103 

REF 

1 



38,2113 

34025 1 


DP-.002 

ADD .002 RADIANS TO IT 

2104 





36,2114 

57414 1 

BCN 

DCCMP 

GIVES CORRECT SINE, COSINE MUST BE 

2105 

REE 

3 

LAST 

542 

36,2115 

00316 0 


KPIAG 

CCMP. ADO .5 FOR ANGLE 

2108 





36,2116 

74117 0 


♦1 



PHI<0>=180-<-CTKBTAzERO »K5 IT) ) , FHIC I) = 180-<-nHETflZBRCMC2lT>) 
SIN( 180-ALPHA)-SIN( ALPHA) ETC 


2109 





36,2117 

40205 1 

DMP 

SEXTO 

210905 

REF 

1 



36,2120 

34011 0 


PIINVERS 

2110 





36,2121 

00001 0 


0D 

2111 





36,2122 

45208 1 

PUSL 

DSU 

2112 

REF 

4 

LAST 

543 

36,2123 

02617 0 


THETZERO 

2113 

REP 

2 

LAST 

92 

38,2124 

02611 0 

STORE 

IT 

2114 





36,2125 

41525 0 

POOL 

mai 

2115 





38,2126 

43342 0 

SRI 

DAD 

2116 





36,2127 

41415 1 

DAD 

PUSI 

2117 





38,2130 

43158 1 

SIN 

ffiT 

2118 

REP 

3 

LAST 

522 

36,2131 

03466 0 


RVS* 

2119 

REF 

4 

LAST 

522 

38,2132 

16732 0 

STCDL 

S*TH 

2120 





38,2133 

50146 1 

COS 

EW 

212005 





38,2134 

74136 0 


♦2 

21201 





38,2135 

77676 0 

DCCMP 


2121 

REP 

4 

LAST 

522 

36,2136 

16734 0 

STCDL 

CSTH 

212105 

REP 

3 

LAST 

543 

38,2137 

03746 1 


XRS 

21211 

REP 

9 

LAST 

543 

38,2140 

24047 1 

STCVL 

XI 

2122 

REP 

10 

LAST 

542 

36,2141 

03554 0 


RPASS3 

2123 





36,2142 

77657 0 

VSR* 


2124 





38,2143 

57176 0 


0,2 

2125 

REP 

4 

LAST 

522 

38,2144 

26657 1 

STCVL 

RVEC 

2126 

REF 

10 

LAST 

542 

36,2145 

035 6 2 0 


VPASS3 

2127 





36,2146 

77657 0 

VSR* 


2128 





36,2147 

57176 0 


0,2 

2129 

REP 

6 

LAST 

522 

36,2150 

36746 1 

SICALL WEC 

2130 

REP 

3 

LAST 

522 

36,2151 

24737 1 


TtteiHBT 

2131 





36,2152 

77745 1 

CHXttD 


2132 

REP 

4 

LAST 

522 

36,2153 

00037 0 


T 

2133 

REF 

2 

LAST 

124 

38,2154 

03752 1 

STORE 

TP 

2134 

REP 

2 

LAST 

92 

36,2155 

16627 0 

STOOL 

TFO 


REVCLUTICNARY HERBS TWO IT 


PHI(I) , -C THETZERO + K2IT) 


PHI(o) , -(THETZERO + K5IT) 


SAVE START TI® AND CET END TIME 
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2135 

REP 

3 

LAST 

543 

36,2156 

02611 

0 



IT 

2136 





36,2157 

73408 

1 


PUSL 

SIN 

213T 

REF 

5 

LAST 

543 

36,2160 

16732 

0 


STOOL 

SN7H 

2138 





36,2161 

50148 

1 


cos 

BW 

213805 




36,2162 

74164 

1 



*2 

21381 





36,2163 

77676 

0 


DCCMP 


2139 

HEP 

5 

LAST 

543 

36,2164 

02734 

0 


STORE 

CSIH 

2140 





38,2165 

45150 

1 


LXA , 1 

CALL 

2141 

REF 

4 

LAST 

543 

36,2166 

03745 

1 



XRS 

2142 

REP 

4 

LAST 

543 

38,2167 

24737 

1 



TM3OTET 

R2143 

INITIALIZE LOOP 







2144 





36,2170 

43145 

0 


DLOAD 

CLEAR 

2145 

REP 

5 

LAST 

543 

38,2171 

00037 

0 



T 

2146 

REP 

5 

LAST 

461 

36,2172 

03881 

0 



ITSWICH 

214T 

REP 

2 

LAST 

92 

36,2173 

16621 

0 


ST0DL 

TFI 

2148 

REP 

6 

LAST 

497 

36,2174 

15340 

1 



DPPOS4AX 

2149 

REP 

2 

LAST 

92 

36,2175 

16623 

1 


STCDL 

DELVEE 

2150 

REP 

1 



36,2176 

34017 

0 



MANYFEET 

2151 

REP 

2 

LAST 

92 

36,2177 

16625 

1 


STCDL 

HP 

2152 

REP 

1 



36,2200 

34013 

1 



SECiTHET 

2153 





36,2201 

71214 

0 


bcn 

DLOAD 

2154 

REP 

4 

LAST 

543 

36,2202 

00316 

0 



kfiag 

2155 





36,220 3 

74205 

0 



♦2 

2156 

REP 

1 



36,2204 

34015 

1 



SEC2THET 

2157 

REP 

2 

LAST 

124 

36,2205 

37750 

1 


SICALL THETL 

2158 

REP 

1 



36,2206 

74230 

0 



CCNCAUL 

2159 





36,2207 

70545 

1 

BIS 

DLOAD 

SRl 

2160 

REP 

6 

LAST 

544 

36,2210 

02734 

0 



CSIH 

2161 

REP 

2 

LAST 

282 

36,2211 

14021 

1 


STCDL 

COSTH 

2162 

REP 

6 

LAST 

544 

36,2212 

02732 

0 



SNOT 

2163 





36,22 1 3 

77742 

0 


SRl 


2164 

REP 

2 

LAST 

282 

36,2214 

34023 

1 


SICALL 

SINOT 

2165 

REP 

2 

LAST 

282 

36,2215 

47211 

0 



AHCTRIG 

2166 





36,2216 

43244 

1 


BPL 

DAD 

2167 





36,2217 

74221 

0 



♦ 2 

2168 

REP 

7 

LAST 

544 

36,2220 

15340 

1 



DPPOSMAX 

2169 





36,2221 

65221 

0 


BDSU 

POOL 

2170 

REP 

3 

LAST 

544 

36,2222 

03750 

0 



otetl 

2171 

REP 

3 

LAST 

543 

36,2223 

03752 

1 



TF 

2172 





36,2224 

75225 

0 


DSU 

SICW ■ 

2173 

REP 

3 

LAST 

544 

36,2225 

02621 

0 



TFI 

2174 





36,2226 

77640 

0 


fW 


2175* 

REP 

1 



36,2227 

74432 

1 



RNGETEST 

R2176 

ADVANCE PASSIVE FOR TARGET VECTOR 





2177 





36,2230 

77745 

1 

CCNCAUL 

DI.OAD 


2178 

REP 

12 

LAST 

542 

36,2231 

03663 

1 



TTPT 

2179 





36,2232 

43015 

1 


DAD 

BCN 

2180 

REP 

4 

LAST 

544 

36,2233 

03752 

1 



TF 

2181 

REP 

5 

LAST 

523 

36,2234 

01312 

0 



AVF1AG 

2182 

REP 

1 



36 , 2235 

74242 

0 



AIVCSM 
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SAVE TIME FOR LOOP TEST 


70 DEGREES 


330 DEGREES 


GET 4 QUADRANT theta 

PUT THETA BETWEEN 0,1 

FAST TIMES 

TIME MUST HAVE A STOP 
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2183 

IBP 

24 

LAST 

542 

36,2236 

34041 0 


RECALL roBCi 

2184 

KP 

2 

LAST 

542 

38,2237 

27057 0 



LEMCCVIC 

2185 





36,2240 

77650 1 


GOTO 


2186 

BSP 

1 



38,2241 

74244 0 



JUNCT3 

218T 

BSP 

25 

LAST 

545 

36,2242 

34041 0 

ADVCS4 

SlCALL TDSCi 

2188 

HEP 

2 

LAST 

S42 

36,2243 

27045 0 



CS4CCNIC 

R2189 

SAVE RAQc VAUBS CP HP AND D2LVE3 




2190 





38,2244 

T7775 1 

JUNCT3 

VLCMD 


2191 

BSP 

12 

LAST 

519 

38,2245 

00007 0 



VATT 

2192 

HHP 

5 

LAST 

520 

38,2246 

27640 0 


STCVL 

VPASS4 

2193 

EBP 

18 

LAST 

519 

38,2247 

00001 0 



RATT 

2194 

HEP 

2 

LAST 

121 

38,2250 

03832 0 


STORE 

RPASS4 

219405 

HEP 

• 

LAST 

483 

36,2251 

17415 1 


ST0DL 

rtarg 

2195 

RBP 

5 

LAST 

544 

38,2252 

0375 2 1 



TP 

2198 

IBP 

T 

LAST 

482 

38,2253 

17423 1 


STODL 

DELLTa 

219T 

HBP 

3 

LAST 

544 

36,2254 

02825 1 



HP 

2198 

HEP 

2 ‘ 

LAST 

92 

36,2255 

16631 1 


STOOL 

HPO 

2199 

IBP 

3 

LAST 

544 

38,2258 

02623 1 



DELVEB 

2200 

HBP 

2 

LAST 

92 

36,2257 

16633 0 


STOOL 

DELVEO 

R2201 

prepare fob lanbert 






2202 

HEP 

13 

LAST 

544 

36,2260 

0366 3 1 



TTPI 

2203 

HBP 

8 

LAST 

519 

38,2261 

17503 1 


STODL 

INTIMB 

220305 

HBP 

5 

LAST 

S44 

36,2262 

03746 1 



XRS 

22031 

fflP 

8 

LAST 

491 

36,2263 

17746 1 


STODL 

RIX1 

220313 

RHP 

3 

LAST 

528 

38,2264 

15332 1 



HlBZEROS 

220315 





36,2285 

65201 1 


SETPD 

POOL 

22032 





36,2266 

00001 0 



0D 

220325 

HEP 

2 

l AST 

487 

38,2267 

33147 0 



BPSPCUR 

22033 





38,2270 

77715 1 


POVL 


220335 

HEP 

22 

LAST 

543 

36,2271 

035 4 0 0 



RACT3 

22034 

HBP 

10 

LAST 

485 

36,2272 

27570 0 


STCVL 

RINIT 

220345 

HBP 

8 

LAST 

490 

36,2273 

03546 0 



VACT3 

22035 

HEP 

• 

LAST 

485 

36,2274 

37576 1 


SlCALL VINIT 

220T 

HEP 

2 

LAST 

467 

36,2275 

22000 1 



INITVEL 

R2208 

CtMPinB H ET CETERA 






2209 





36,2276 

52375 1 


VLCMD 

VSU 

2210 

HEP 

» 

LAST 

520 

36,2277 

03620 0 



VTPRIJB 

2211 

HEP 

ft 

LAST 

545 

36,2300 

03640 0 



VPASS4 

2212 





38,2301 

41446 1 


ABVAL 

PUS! 

2213 

REP 

2 

LAST 

92 

36,2302 

26637 1 


STCVL 

RELDBLV 

2214 

HBP 

14 

LAST 

520 

36,2303 

03646 0 



DBLVEBT3 

2215 





38,2304 

77846 0 


ABvAL 


2216 

HBP 


LAST 

92 

36,2305 

026 35 0 


STORE 

MAGVTPI 

221T 





38,2306 

45415 0 


DAD 

siadr 

2218 

HBP 

4 

LAST 

545 

36,2307 

61154 0 


STODL 

dh.vee 

2219 

HEP 

ft 

LAST 

545 

38,2310 

03746 1 



XRS 

2220 

HEP 

10 

LAST 

543 

38,2311 

24047 1 


SKVL 

XI 

2221 

HEP 

1 ft 

I AST 

520 

36,2312 

03612 1 



VIPRIME 

2222 





36,2313 

77657 0 


VSR* 


2223 





38,2314 

57176 0 



0,2 


/V2-VPCTPUTP)/ 
VI -VA 
A'l-VA/ 
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2224 

REP 

7 

last 

543 

36,2315 

28746 

0 


STCVL 

WE C 

2225 

REP 

23 

last 

545 

38,2318 

03540 

0 



RACT3 

2226 





38,2317 

77657 

0 


VSR* 


2227 





38,2320 

57178 

0 



0.2 

2228 

REP 

5 

LAST 

543 

36,2321 

36657 

0 


SICALL RVEC 

2229 

REF 

1 



38,2322 

45322 

0 



PBRIAPO 

2230 





36,2323 

71354 

0 


LXA,2 

DLCAD 

2231 

REP 

7 

LAST 

545 

38,2324 

03746 

1 



XRS +1 

2232 





36 , 2325 

77657 

0 


SL* 


2233 





38,2326 

57576 

1 



0,2 

2234 

REP 

4 

LAST 

545 

36,2327 

02625 

1 


STORE 

HP 

R2235 

ITSWICH 

DENOTES INTERPOLATION- 

— SOLUTION ACCEPTANCE IS FORCED 

2236 





36,2330 

71214 

0 


BCN 

DLOAD 

2237 

REF 

6 

LAST 

544 

36,2331 

03701 

1 



IT9WICH 

2238 

REP 

1 



38,2332 

74443 

1 



ENDBN 

2239 

REP 

7 

LAST 

514 

36,2333 

02321 

0 



HPERMIN 

2240 





36 , 2334 

50025 

0 


DSU 

bnn 

2241 

REF 

5 

LAST 

546 

36,2335 

02625 

1 



HP 

2242 

REP 

1 



36,2336 

74401 

1 



HALFS4FE 

2243 





38,2337 

45325 

1 


POOL 

DSU 

2244 

REF 

6 

LAST 

546 

36,2340 

02321 

0 



HPERMIN 

2245 

REP 

3 

LAST 

545 

36,2341 

02631 

1 



HPO 

2246 





36,2342 

45240 

0 


bmn 

DSU 

2247 

REP 

1 



36,2343 

74360 

1 



INTERP 

22*8 





36,2344 

71240 

1 


ENN 

DIXAD 

2249 

REP 

1 



36,2345 

73534 

1 



ALA RIMS 

2250 

REF 

1 



36,2346 

34005 

0 



CD33C 

2251 





38,2347 

57414 

1 

JUNCT1 

BOFP 

DC CMP 

2252 

REP 

5 

LAST 

544 

36,2350 

00356 

1 



kflag 

2253 





36,2351 

7435 2 

0 



♦1 

225* 

REF 

2 

LAST 

124 

36,2352 

03744 

0 


STORE 

DHAEE 

2255 





36,2353 

43345 

1 

JUNCT2 

DLQAD 

DAD 

2256 

REF 

3 

LAST 

546 

36,2354 

03744 

0 



DELTEE 

2257 

REP 

6 

LAST 

545 

36,2355 

03752 

1 



W 

2258 

REF 

7 

LAST 

546 

36,2356 

3775 2 

0 


SICALL TV 

2259 

REF 

1 



38,2357 

74207 

1 



BIS 

2260 





36,2360 

45214 

1 

INTERP 

SET 

DSU 

2261 

REP 

7 

LAST 

546 

36,2361 

03461 

1 



ITSWICH 

2262 





38,2362 

65301 

0 


NORM 

POCK, 

2263 

REF 

11 

LAST 

545 

36,2363 

00047 

1 



XI 

226* 

REP 

1 



38,2364 

34023 

1 



DP1MOCN 

2265 





38,2365 

45215 

0 


DAD 

DSU 

2266 

REP 

9 

LAST 

546 

36,2366 

02321 

0 



HPERMIN 

2267 

REP 

6 

LAST 

546 

36,2367 

02625 

1 



HP 

2268 





38,2370 

70501 

1 


NORM 

SRl 

2269 

REF 

e 

LAST 

508 

36,2371 

00050 

1 



X2 

2270 





38,2372 

56264 

1 


XSU, 2 

DCV 

2271 

REP 

12 

LAST 

546 

36,2373 

00046 

0 



XI 

2272 





36,2374 

53605 

1 


DMP 

SR* 

2273 

REP 

4 

LAST 

546 

36,2375 

03744 

0 



DF5/IEB 
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WAS PERICENTER ALT SAFE 
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2274 





38,2376 

57177 1 



0 -1,2 

2275 

REP 

5 

LAST 

546 

36,2377 

37744 1 


SICALL D2LTES 

2276 

REF 

1 



36,2400 

74353 1 



JUNCT2 

2277 





36,2401 

45325 1 

HALPSAFB POOL 

DSU 

2278 

REF 

5 

LAST 

545 

38,2402 

02623 1 



DELVEE 

2279 

REP 

3 

LAST 

545 

36,2403 

026 3 3 0 



DELVBO 

2280 





38,2404 

51406 1 


puai 

ABS 

2281 





36,2405 

50025 0 


DSU 

BM7 

2282 

REP 

1 



36,2406 

34021 0 



LIMVEL 

2283 

REF 

2 

LAST 

546 

36,2407 

74443 1 



ENOCH 

2284 





38,2410 

45 345 1 


DLQAD 

DSU 

2285 

REP 

10 

LAST 

546 

36,2411 

02321 0 



HPER4IN 

2286 

REF 

4 

LAST 

546 

36,2412 

02831 1 



HPO 

2287 





38,2413 

77725 1 


POOL 


2288 





38,2414 

71240 1 


Bt-tf 

DLQAD 

2289 

REF 

1 



38,2415 

74424 0 



LRGRDVO 

2290 





36,2416 

71244 0 


bpl 

DLQAD 

2291 

REF 

2 

LAST 

546 

38,2417 

74380 1 



INTBRP 

2292 

REF 

6 

LAST 

547 

36,2420 

03744 0 



DELTEE 

2293 





36,2421 

57542 0 


SRl 

DC CMP 

2294 

REF 

7 

LAST 

547 

36,2422 

37744 1 


yiCALL DEL/IEE 

2295 

REF 

2 

LAST 

547 

36,2423 

74353 1 



JUNCT2 

2298 





36,2424 

77745 1 

LRGRDVO 

DLQAD 


2297 





38,2425 

71240 1 


R-N 

DLQAD 

2298 

REF 

3 

LAST 

547 

36,2426 

74353 1 



JINCT2 

2299 

REF 

1 



36,2427 

34007 1 



CL SEC 

2300 





38,2430 

77650 1 


GOTO 


2301 

REF 

1 



36,2431 

74347 1 



JUNCTl 

R2302 

TIME 

RAN 

out assume 

SOLUTICN 

IF SAFE PERICBNTER 



2303 





38,2432 

45345 1 

RNGETEST DLQAD 

DSU 

2304 

REP 

7 

LAST 

546 

36,2433 

02625 1 



HP 

2305 

REP 

11 

LAST 

547 

36,2434 

02321 0 



HPBHMIN 

2306 





36,2435 

71240 1 


BfW 

DLQAD 

2307 

REF 

2 

LAST 

546 

36,2436 

73534 1 



ALARUMS 

2308 

REF 

8 

LAST 

546 

36,2437 

03752 1 



IF 

2309 





38,2440 

77625 0 


DSU 


2310 

REF 

8 

LAST 

547 

36,2441 

03744 0 



DEL’iffl 

2311 

REF 

9 

LAST 

547 

38,2442 

03752 1 


STORE 

TP 

2312 





36,2443 

77775 1 

ENDEN 

VLO XD 


2313 

REF 

9 

LAST 

545 

36 , 2444 

03620 0 



VTPRJME 

2314 





36,2445 

65241 0 


DOT 

POOL 

2315 

REF 

3 

LAST 

545 

36,2446 

03632 0 



RPASS4 

2316 

REF 

3 

LAST 

545 

36,2447 

02637 1 



RELDELV 

2317 





36,2450 

45565 0 


SIGN 

SIADR 

2318 

REF 

4 

LAST 

547 

36,2451 

41140 1 


SICALL 

RELDELV 

231805 

REF 

1 



36,2452 

16440 0 



IRAN SANG 

23181 





36,2453 

50375 0 


VLQAD 

DOT 

2319 

REF 

24 

(AST 

546 

36,2454 

03540 0 



RACT3 

2320 

REF 

11 

LAST 

545 

36,2455 

03612 1 



VIPRR6 

2321 





36,2456 

51165 1 


SICW 

BPL 
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2322 

REP 

5 

LAST 

547 

36,2457 

02637 1 



RELDBLV 

2323 

REP 

1 



36,2460 

74470 1 



USEKAY 

2324 





36,2461 

57535 0 


SUOAD 

DCCMP 

2325 

REP 

2 

IAST 

467 

36,2482 

33144 0 



DECIWO 

2320 





36,2463 

51165 1 


SIGN 

BPL 

232T 

REP 

6 

LAST 

548 

36,246 4 

02837 1 



RBLDELV 

2328 

REP 

1 



38,2465 

74476 1 



NEXUS 

232905 




38,2466 

52076 1 


DC CMP 

GOTO 

23281 

REP 

2 

LAST 

548 

36,2467 

74474 0 



USEKAY +4 

2329 





36,2470 

43135 1 

USEKAY 

SLOAD 

BCN 

2330 

REP 

3 

LAST 

548 

38,2471 

33144 0 



DECTWO 

2331 

REP 

0 

LAST 

546 

38,2472 

00316 0 



kfiag 

2332 

REF 

2 

LAST 

548 

36,2473 

74476 1 



NEXUS 

2333 





36,2474 

77625 0 


DSU 


2334 

REP 

2 

LAST 

450 

36,2475 

36100 0 



P21CNENN 

2335 

REP 

2 

LAST 

275 

36 , 2476 

17646 0 

NEXUS 

STCDL 

NNl 

233505 

REP 

6 

LAST 

547 

36,2477 

02625 1 



HP 

2336 

REP 

' 4 

LAST 

520 

36,2500 

36641 1 


STCALL posttpi 

233T 

REP 

3 

IAST 

543 

36,2501 

03657 0 



oreMp 

23371 





07,2440 



bank 

OT 

23372 

REP 

1 



07,2000 



setloc xang 

23373 




*§Sf 

07,2440 



hank 


23374 

REF 

1 






COUNT 

ot/xang 

R2338 

CENTRAL ANGLE 

SUBROUTINE 





R2339 



THIS SUBROUTINE COMPUTES THE CENTRAL ANGLE OP TRAVEL OP THE 

R2340 

PASSIVE VEHICLE DURING THE TRANSFER. 




2341 





07,2440 

40220 0 

TRANSANG 

STQ 

SETPD 

2342 

REP 

15 

IAST 

519 

07,2441 

02370 1 



SUBEXIT 

2343 





07,2442 

00001 0 



0 

2344 





07,2443 

73150 1 


LXA.l 

LXA , 2 

2345 

REP 

e 

LAST 

546 

07,2444 

03745 1 



XRS 

2346 

REP 

9 

IAST 

548 

07,2445 

03746 1 



XRS +1 

2347 





07 , 2446 

53775 1 


VLOAD 

VSR# 

2348 

REP 

7 

LAST 

545 

07,2447 

03640 0 



VPASS4 

2349 





07,2450 

57176 0 



0,2 

2350 

REP 

8 

LAST 

546 

07,2451 

22746 1 


STCDL# WEC 

2351 

REP 

3 

LAST 

486 

07,2452 

11633 1 



MUTABLE +2,1 

2352 





07,2453 

53715 1 


PDVl, 

VSR# 

2353 

REP 

4 

LAST 

547 

07 , 2454 

03632 0 



RPASS4 

2354 





07,2455 

57176 0 



0,2 

2355 





07,2456 

64646 1 


AByAL 

POOL# 

2356 

REP 

4 

LAST 

548 

07,2457 

11631 0 



MUMBLE, 1 

2357 





07,2460 

47515 0 


PCVL 

vso 

2358 

REP 

9 

IAST 

548 

07,2461 

02746 0 



WEC 

2359 





07,2462 

57301 1 


NORM 

DMPR 

2360 

REP 

13 

IAST 

546 

07,2463 

00047 1 



XI 

2361 





07,2464 

53605 1 


DMP 

SRR# 

2362 





07,2465 

00003 1 



02D 
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2363 





07,2466 

21578 0 



0 -3,1 


2364 





07,2467 

77621 1 


BDSU 


R V**/MU (+ 6 ) 

2365 

RBP 

1 



07,2470 

11506 1 



Dl/32 

2366 





07,2471 

65301 0 


N0R4 

POOL 


238T 

EBP 

14 

LAST 

548 

07,2472 

00047 1 



XI 

I2-HW/W) ( + 6 -N) 

2368 





07,2473 

56362 0 


SRlR 

DCV 

MACNITlCe OF R (*30 OR *28) 

2369 





07,2474 

41457 1 


S* 

PU3L 

R/<2 - R V**/MU> (+29 OR +27)02D 

23T0 





07,2475 

20174 1 



0 -5,1 

2371 





07,2476 

75542 0 


SRl 

SORT 


23T2 





07,2*11 

77805 1 


DMP 



2373 





07,2500 

65301 0 


NOR4 

POOL 

aslbp*** ood 

2374 

REP 

15 

LAST 

549 

07,2501 

00047 1 



XI 

2375 





07,2502 

56342 1 


SRl 

DC V 


2376 





07,2503 

53805 1 


DMP 

SLA 


2377 

REP 

10 

LAST 

547 

07,2504 

03752 1 



TP 


2378 





07,2505 

20201 0 



0,1 


237805 





07,2506 

60325 0 


POOt, 

NORM 


23781 

REP 

1 



07,2507 

11520 0 



2 PISC 


237815 

REP 

16 

LAST 

549 

07,2510 

00047 1 



XI 


23782 





07,2511 

56325 0 


POOL 

DDV 


237825 





0 T. 2 S 12 

77857 0 


SL* 



23783 

REF 


LAST 


07,2513 

20176 0 



0 -3,1 

CENTANG = ( SORT ( MU/A SJP+4A ) TP ) 

2379 

6 

522 

07,2514 

37754 0 


STCALL C»iTANO 

IN REVOLUTIONS B-o 

2380 

REP 

16 

LAST 

548 

07.2S15 

02370 1 



SUBSXIT 


2381 





35,3431 



bank 

35 


2382 

REP 

1 



35,2000 



sbtloc 

P17S1 


2383 





35 ,3431 



bank 



23835 

REP 

1 






CCLNT 

35 /pit 


R2384 

TP I 

SEARCH DISPLAY ROOTIIffi 






2385 

REP 

5 

LAST 

521 

35,3431 

0 3726 1 

P17 

1 C 

AvFLAGA 

AVFtAG = CSM , SET TRACK + UPDATE FIAGS 

2386 

REP 

1 



35,3432 

0 3434 1 


1C 

pit .1 

2387 

REF 

5 

LAST 

521 

35,3433 

0 3741 0 

P77 

1 C 

AVFIAGP 

AVFLAG = IBM , SET TRACK + UPDATE FIAGS 

2388 

REP 

5 

LAST 

521 

35,3434 

0 3746 1 

P17-1 

TC 

P 20 PLGCN 

SET UPDATE FI AG 

238805 

REP 

3 

LAST 

456 

35,3435 

3 3125 1 


CAP 

V06N37 

DISPLAY TTPI TIME 

2389 

REP 

5 

LAST 

472 

35,3438 

0 3114 0 


TC 

VNPOCH 


2390 

REP 

72 

LAST 

537 

35,3437 

0 6006 1 


TC 

INTPRET 


2391 





35,3440 

45014 0 


CLEAR 

CALL 


2392 

REP 

s 

LAST 

520 

35,3441 

00670 0 



UPOATPLO 


2393 

REP 

1 



35,3442 

74026 0 



517.1 

UPDATE STATE VECTORS TO TTPI 

2394 





35,3443 

76014 0 


SET 

AXT, 1 


2395 

REP 

9 

LAST 

549 

35,3444 

00470 1 



updatplg 


2396 





£1,3445 

00002 0 


DEC 

2 

DELTA H = 2 K POSITIVE , KFIAG OFF 

2397 





35,3446 

76014 0 


BOFP 

AXT, 1 


2398 

REP 

7 

LAST 

548 

35,3447 

00356 1 



kflag 


2399 





35,3450 

7345 2 0 



*2 


2400 





35,3451 

00001 0 


DEC 

1 

DELTA H = 1 K NEGATIVE , KFIAG CN 

2401 





35,3452 

77530 1 


SXA,1 

EXIT 


2402 

REP 

6 

[AST 

518 

35,3453 

01132 0 



OPTICN 2 
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2403 

REP 

1 



35,3454 

2404 

REF 

1 



35,3455 

2405 

REP 

73 

last 

549 

35,3456 

2400 





35,3457 

240T 

REF 

10 

last 

549 

35,3430 

2408 

REP 

0 

last 

549 

35,3431 

2409 





35,3462 

2410 

RHP 

7 

last 

549 

35,3433 

2411 

REF 

3 

last 

548 

35,3434 

2412 





35,3465 

2413 





35,3486 

2414 

REP 

9 

last 

550 

35,3437 

2415 





35,3470 

2416 

REP 

10 

LAST 

540 

35,3471 

241T 





35,3472 

2418 





35,3473 

2419 

REP 

1 



35,3474 

2420 

REP 

1 



35,3475 

2421 





35,3476 

2422 

REP 

1 



35,3477 

2423 

REP 

12 

LAST 

547 

35,3500 

2424 

REP 

1 



35,3501 

2425 





35,3502 

2426 

REP 

11 

LAST 

550 

35,3503 

2427 

REP 

2 

LAST 

457 

35,3504 

2428 

REP 

2 

LAST 

550 

35,3505 

2429 

REP 

2 

LAST 

475 

35,3506 

2430 

REP 

120 

LAST 

536 

35,3507 

2431 

REP 

5 

LAST 

518 

35,3510 

2432 

REF 

17 

LAST 

523 

35,3511 

2433 

REP 

10 

LAST 

550 

35,3512 

2434 

REF 

2 

LAST 

549 

35,3513 

2435 

REP 

29 

LAST 

506 

35,3514 

2436 

REP 

5 

LAST 

518 

35,3515 

2437 

REF 

66 

LAST 

536 

35,3516 

24375 

REP 

13 

LAST 

523 

B4,1767 

2438 





35,3517 

2439 

REP 

4 

LAST 

474 

35,3520 

2440 

REP 

6 

LAST 

523 

35,3521 

2441 

REP 

7 

I A ST 

550 

35,3522 

2442 

REF 121 

LAST 

550 

35,3523 

2443 

REF 

17 

LAST 

523 

35,3524 

2444 





35,3525 

2445 

REP 

5 

LAST 

550 

35,3526 

2446 

REP 246 

LAST 

537 

35,3527 

244605 

REF 

32 

I A ST 

536 

35,3530 

24461 





35,3531 

244615 

REF 

3 

LAST 

550 

35,3532 

24462 

REF 

3 

IAST 

550 

35,3533 


3 3543 0 


CAP 

V06N72 

0 3517 1 


TC 

VNCCMP1T 

0 6008 1 


TC 

INTPRET 

43014 0 


CLEAR 

SET 

00670 0 



UPDATFLG 

00076 0 



KFLAG 

45335 0 


fflXMD 

DSU 

01133 1 



OPTICN2 

38100 0 



P21CNENN 

43030 0 


SHIZ 

CLEAR 

73470 0 



*2 

00276 1 



KFLAG 

46135 1 


ax»D 

BHIZ 

03747 0 



XRS +1 

73478 0 



♦4 

52145 0 


DLQAD 

GOTO 

34003 0 



HPL 

735 0 0 0 



PIT. 2 

77745 1 


DLOAD 


34001 1 



HPE 

38321 1 

P17.2 

STCALL HPEffMIN 

74104 1 



S17.2 

77414 0 


SET 

EXIT 

00470 1 



updatplg 

3 3127 0 

P17.3 

CAP 

V06N58 

0 3517 1 


TC 

VNCCMPit 

3 3126 1 


CAP 

V08N55 

0 4555 0 


TC 

rankcall 

20763 1 


CADR 

GOFLASHR 

0 4106 1 


TC 

GOTOPOCH 

0 4106 1 


TC 

GOTOPOCH 

0 3434 1 


TC 

PlT.l 

3 4711 1 


CAP 

TWO 

0 5415 1 


TC 

BLANKET 

1 5112 1 


TCP 

ENDCFJCB 



bhank= 

RTRN 

0 0006 1 

VNCCMP17 EXTEND 


Z3«760 1 


QXCH 

OSAVED 

55«765 0 


TS 

VERBNCUN 

3 1765 1 


CA 

VERBNCUN 

0 4555 0 


TCR 

bankcaia. 

20624 0 


CADR 

GOFLASH 

0 3522 1 


TC 

-3 

0 1766 1 


TC 

OSAVED 

4 0154 0 


CS 

MPAC 

6 4705 1 


AD 

BIT6 

0 0008 1 


EXTEND 


1 3434 0 


BzF 

PlT.l 

0 35 2 2 1 


TC 

VNCCMP1T 4-3 
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PROGRAM CPoo) BY KEYING V37E00E OR BY KEYING IN V56E 
ALARM OR ABORT EXIT MCDES- 
NCNE DIRECTLY FRCM P20 
OUTPUT 

TRKMoCNT = NO OP RENDEZVOUS TRACKING marks taken CCOUNTER) 
VHPCNT = NO OF VHP RANGING MARKS INCORPORATED CCOUNTER) 

FLAGS SET + RESET 

RNDVZFLG, VEHUPFLG, UPDATELG, TRACKFLG, TARGlFLG 
HOLDFLAG, WBODY, WBODYl , V 7 BODY 2 , DELCDUX .DELCDUY, DELCDUZ 
STlKFlAOjPRPTRKAT.VlNTELAGjDIMCFCAG.RfiOFlAG^lCNTR 


0033 





33,3772 



BANK 

33 


0034 

REF 

2 

LAST 

450 

37,2000 



SETLOC P20S 


0035 





37,2207 



bank 



0036 

REF 

4 

LAST 

206 

E6,1412 



ehank= 

estrcker 


003T 

REF 

1 






COUNT* JS/P20 


0038 

REF 

122 

LAST 

550 

37 , 2207 

0 4555 

0 PROG20 

TC 

BANkCALL 


0039 

REF 

1 



37,2210 

17573 

0 

CADR 

R02BOIH 

IMU STATUS CHECK 

A0040 





' 





BLOCKING OF UPLINK IS DONE BY UPLINK 

0041 

REF 

117 

LAST 

536 

37,2211 

3 4714 

1 

CAF 

zero 


0042 

REF 

3 

LAST 

100 

37,2212 

55*126 

1 

TS 

twkcnt 

zero rend tracking mark counter 

0043 

REF 

5 

LAST 

504 

37,2213 

55*125 

1 

TS 

VHFCNT 

zero rend VHF rng mhk COUNTER 

0044 

REF 

19 

LAST 

503 

37,2214 

0 5435 

0 

TC 

UPFIAG 

SET PREF TRACK ATT FI AG 

0045 

REF 

3 

LAST 

258 

37,2215 

00120 

1 

ADRES 

prftrkat 

bit 10 fiag 5 

0046 

REF 

23 

LAST 

444 

37,2216 

0 5447 

0 

TC 

DOUCNFIACr 

IPM TO BE UPDATED. VEHUPFIG RESET. 

0047 

REF 

3 

LAST 

254 

37,2217 

00026 

0 

ADRES 

VFHUPFIG 

BTT 8 FIAG 1 








ASS&BLB REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 


20’35 OCT. 28,1968 PANDORA .080 PACK 553 



L 

P2Q- 

-P25 




•050 

H8P 

20 

LAST 

552 

37,2220 

0051 

REF 

3 

LAST 

502 

37,2221 

•052 

RBP 

21 

LAST 

553 

37,2222 

•053 

REP 

13 

LAST 

551 

37,2223 

0054 

HW 

22 

LAST 

553 

37,2224 

0055 

REP 

2 

LAST 

253 

37,2225 

0050 

HEP 

5 

LAST 

530 

37,2226 

005T 





37,2227 

0058 





37,2230 

0059 





37,2231 

0060 

REF 

T4 

LAST 

550 

37,2232 

0061 





37,2233 

0062 

HEP 

10 

LAST 

522 

37,2234 

0063 

HEP 

2 

LAST 

78 

37,2235 

0064 

REP 

1 



37,2238 

0065 





37,2237 

0066 

REE 

2 

LAST 

204 

37,2240 

006T 

REP 

1 



37,2241 

0068 

REP 

3 

LAST 

204 

37,2242 

0069 





37,2243 

OOTO 

REP 

4 

LAST 

552 

37,2244 

OOtl 

REP 

1 



37,2245 

0072 

REP 

4 

LAST 

204 

37,2246 

0073 





37,2247 

0074 

REP 

3 

LAST 

204 

37,2250 

0075 





37,2251 

0076 

HEP 

1 



37,2252 

0077 





37,2253 

0078 

REP 

2 

LAST 

553 

37,2254 

0079 





37,2255 

0080 

RBP 

5 

LAST 

553 

37,2256 

0081 

HEP 

1 



37,2257 

0082 

REP 

5 

LAST 

553 

37,2260 

0083 





37,2261 

0084 

HEP 

4 

LAST 

553 

37,2262 

0085 





37,2263 

0086 

REP 

2 

LAST 

410 

37,2264 

0088 

REP 

21 

LAST 

531 

37,2265 

0089 

REP 

T 

LAST 

504 

Et,1734 

0090 

REF 

2 

LAST 

207 

37,2266 

0090 





37,2267 

0092 

HEP 

6 

LAST 

553 

37,2270 

0093 





37,2271 

0094 





37.22T2 

0095 

REF 

2 

LAST 

385 

37,2273 

0096 

REF 

5 

LAST 

440 

37,2274 

0097 

REP 

29 

LAST 

511 

37,2275 

0098 

REP 

33 

LAST 

224 

37,2276 

0099 





37,2277 

0100 

REP 

er 

LAST 

550 

37,2300 


0 5435 0 


TO 

UPFLAG 

00031 0 


AWES 

trackflg 

0 5 435 0 


TO 

UPFLAG 

00027 1 


ACRES' 

ujoatflg 

0 5435 0 


TO 

UPFLAG 

00010 0 


ADHBS 

RrEVZPLG 

0 5261 1 


TO 

2PHSCHNO 

00004 0 


OCT 

00004 

05022 1 


OCT 

05022 

26000 0 


OCT 

26000 

0 6006 1 


TO 

INTPRBT 

77634 0 


RIB 


45505 0 



LOADTIFE 

35 225 1 


STOALL 

- MARCTOS 

56343 0 



S3TINTG 

43014 0 


BQPP 

ffiT 

02756 1 



HENIWLG 

76243 0 



P20.1 

01476 0 



DIMoPLAG 

43014 0 

P20.1 

BCH 

CLEAR 

00707 1 



vaiJPFLG 

76247 1 



P20.2 

01674 0 



VINIFLAG 

77624 1 

P20.2 

CALL 


27113 1 



INTEGHV 

77624 1 


CALL 


56741 0 



GHP2PC 

77624 1 


CALL 


56343 0 



SETINTC 

43014 0 


BOFF 

CLEAR 

00747 0 



VS4JPFLG 

76261 0 



P20.3 

01674 0 



VINTFLAG 

77624 1 

P20.3 

CALL 


27113 1 



integrv 

777T6 1 


EXIT 


3 7663 0 


CAP 

PRI026 

0 5042 1 


TO 

FINDVAC 



EBANK= 

MRKBUP2 

02512 0 


2CADR 

R22 

70067 1 




0 5261 1 


TO 

2FHSCHNG 

00072 1 


OCT 

00072 

00111 0 


OCT 

00111 

3 4761 0 

PIKUP20 

CAP 

PRIO14 

0 5103 0 


TO 

PRIOCHNG 

3 4706 1 


CAP 

BITS 

7 0075 1 


MASK 

state +1 

0 0006 1 


EXTEND 


1 5112 1 


BzF 

ENDCPJOfi 


USBR.S PACE NO. 2 Be S3 

SET TRACKFIAG 
BIT 5 FLAG 1 
SET UPDATFL G 
BIT T FLAG 1 
SSrr RNDVZPL 0 

bit t flag 0 


SET INTEGRATICN FLAGS 

SET TO INTEGRATE THE W MATRIX 

SET FOR LM INTEGRATICN 

GROUP 2 PHASE CHANCE 
SET INTEGRATION FIAGS 

SET FOR LM INTEGRATICN 


Al IjO# HICNER PRIO THAN IA>«ERT 
IS TRACK FLAG SET 

NO 



as* 

ASSEMBLE REVISION 249 

OF AOC PROGRAM COLOSSUS by NASA 2021111-041 

20’ 35 OCT. 28,1968 PANDORA .080 PAGE 

L 

P20 

-P25 









USBR.S PAGE NO. 3 E 6 S3 

0101 

REP 

IB 

LAST 

336 

3T i 2301 

3 4676 

1 


CAP 

BIT13 


0102 

REP 

34 

LAST 

553 

37,2302 

7 0077 

0 


hask 

STATE +3 

IS REPS-5FLG SET 

0103 





37,2303 

0 0006 

1 


EXTEND 



0104 

REF 

68 

LAST 

553 

37,2304 

1 5112 

1 


BZP 

ENDOFJOB 


0107 

REP 

118 

LAST 

552 

37,2305 

3 4714 

1 


CAP 

ZERO 


0108 

REF 

2 

LAST 

114 

37 , 2306 

55«775 

1 


TS 

R81CNTR 

INITIALIZE Roi COUNTER 

0111 

REP 

23 

LAST 

553 

37,2307 

0 5435 

0 


TC 

UPFLAG 

SET R80FLAG 

0112 

REF 

1 



37,2310 

00126 

1 


ADRES 

R60PLAO 

BIT 4 FLAG 5 

0113 

REP 

123 

LAST 

552 

37,2311 

0 4555 

0 


TC 

BANKCALL 


0114 

REF 

1 



37,2312 

76536 

0 


CADR 

R81CS4 


0115 

REP 

24 

LAST 

552 

37,2313 

0 5447 

0 


TC 

IXWNFLAG 

RESET R80FLAG 

one 

REF 

2 

LAST 

554 

37,2314 

00126 

1 


ADRES 

R 80 FLAG 

bit 4 FLAG 5 

OUT 

REF 

2 

LAST 

98 

E5.1777 




hmnk= 

CMIN 

0118 

REF 

2 

LAST 

236 

37,2315 

3 4751 

0 


CAP 

EBANK5 


0119 

REF 

24 

LAST 

529 

37,2316 

54 003 

0 


TS 

EBANK 


01191 

REF 

24 

LAST 

554 

37,2317 

0 5435 

0 


TC 

UPFLAG 

set target flag to lph ■ 

01192 

REF 

2 

LAST 

384 

37,2320 

00024 

1 


ADRES 

TARGlFLO 

BIT 10 FLAG 1 

0120 

REF 

75 

LAST 

553 

37,2321 

0 6006 

1 

P20R52JB TC 

INTPRET 


0121 





37,2322 

77624 

1 


CALL 



0122 

REF 

1 



37,2323 

30002 

0 



R52 

SET UP AUTO OPTICS JOB 

0123 





37,2324 

77776 

1 


EXIT 



0124 

REF 

124 

LAST 

554 

37,2325 

0 4555 

0 


TC 

BANKCAIL 


0125 

REF 

1 



37,2326 

16070 

1 


CADR 

«<RLEES 


0126 

REF 

66 

LAST 

530 

37,2327 

3 4712 

1 


CAP 

CNE 

HOLD PRESENT ATTITUDE 

0127 

REF 

4 

LAST 

409 

37,2330 

55«332 

0 


TS 

HOLDFT.AG 


0128 

REF 

69 

LAST 

554 

37,2331 

0 5112 

0 


TC 

ENDOFJOB 


0129 





37,2332 

00203 

0 

CCT203 

OCT 

00203 


0130 

REF 

1 



7707 



PIRST3 

EQUALS PURST3 






ASSEMBLE REVISION 249 OP ACC PROGRAM COLOSSUS BY NASA 2021111-041 
P20-P25 


20*35 OCT. 28,1968 PANDORA .080 PAGE 555 
USSR.S PAGE NO. 4 B5 S3 


P0131 ORBITAL NAVIGATION PROGRAM 22 

0132 31,2021 

0133 RHS* 1 30,2000 

0134 30,2000 


BANK 31 
fflTLOC P20S1 

bank 


0135 

REF 

12 

LAST 

276 

E5.1751 



EBANK: 

: LANDMAI9C 


0136 

REF 

1 






COUNT* *$/P22 


0139 

REF 

25 

LAST 

554 

30,2000 

0 5447 0 

PROG22 

1C 

DOiVNFLAG 

RESET FNDVZFLG bit 7 FLAG 0 

01394 

REF 

3 

LAST 

553 

30,2001 

00010 0 


adres 

reCYZFLG 


013941 

REF 

25 

LAST 

554 

30,2002 

0 5 4 35 0 


TP 

UPFLAG 


013942 

REP 

1 



30,2003 

00025 0 


ADRES 

T5ARG2FLG 


01396 

REF 

125 

LAST 

554 

30,2004 

0 4555 0 


TC 

BANKCALL 


0140 

REF 

2 

LAST 

552 

30,2005 

17573 0 


CADR 

R02BOIH 

WJ STATUS CHECK 

0141 

REF 

76 

LAST 

554 

30,2006 

0 0006 1 


1C 

INTPRET 

CCMPUIE ANGLE BETWEEN Y AND VXR SM 

0142 





30,2007 

77634 0 


RIB 



0143 

REP 

11 

LAST 

553 

30,2010 

45505 0 



LOADTI>E 


0145 

REF 

26 

LAST 

545 

30,2011 

34041 0 


STCALL TOECi 


0146 

REF 

3 

LAST 

545 

30,2012 

27045 0 



CgMCCNIC 

INTEGRATE TO PRESENT TIME 

014T 





30,2013 

47375 0 


VLQAD 

VXV 

CROSS PRODUCT BETWEEN V AND R 

0148 

REF 

13 

LAST 

545 

30,2014 

00007 0 



VATT 


0149 

HEP 

17 

LAST 

545 

30,2015 

00001 0 



RATT 


0150 





30,2016 

50250 0 


UNIT 

DOT 


0151 

REF 

13 

LAST 

529 

30,2017 

01744 1 



rbfsmmat <-6 


0152 





30,2020 

77646 0 


ABS 



0153 





30,2021 

65552 0 


a,i 

ARCCOS 


0154 

REF 

7 

LAST 

485 

30,2022 

03626 0 


STORE 

♦MGA 


0155 





30,2023 

77414 0 


clear 

EXIT 


0156 

REF 

3 

LAST 

553 

30,2024 

02676 1 



RENLWLG 


0157 

REP 

1 



30,2025 

3 2162 0 


CAP 

VO 6 N 45 B 


0158 

REF 

126 

LAST 

555 

30,2028 

0 4555 0 


TC 

bankcall 


0159 

REF 

6 

LAST 

550 

30,2027 

20763 1 


CADR 

GOA A SLR 


0160 

REF 

20 

LAST. 

551 

30,2030 

0 4106 1 


TC 

GOTOPOOH 

TERM P 22 

0161 

REF 

1 



30,2031 

0 2036 0 


TP 

PROG 22 A 

PROC 

0162 





30,2032 

0 2025 1 


TP 

-5 

INTER 

0163 

REF 

17 

LAST 

517 

30,2033 

3 6214 0 


CAP 

THREE 


0164 

REF 

6 

LAST 

550 

30,2034 

0 5415 1 


TC 

blanket 

BLANK CUT Rl ♦ R2 

0165 

REF 

70 

LAST 

554 

30,2035 

0 5112 0 


1C 

ENDOFJOB 


0166 

REF 

1 



30,2036 

4 2172 0 

PRCD22A 

CS 

OCTL7000 

SET OFFSET NO.=0 

01661 

REF 

13 

LAST 

555 

30,2037 

7 1751 1 


mask 

landmark 


01662 

REF 

14 

LAST 

555 

30,2040 

55«751 1 


TS 

landmark 


01663 

REF 

77 

LAST 

555 

30,2041 

0 6006 1 


TC 

INTPRET 


01664 





30,2042 

77614 1 


CLEAR 



01665 

REP 

1 



30,2043 

01664 1 



P22>KHXJ 


0167 • 





30,2044 

43014 0 


SET 

BOFP 


0168 

REF 

3 

LAST 

528 

30,2045 

00462 1 



ERADFLAG 


0169 

REF 

6 

LAST 

504 

30,2046 

04343 1 



CMOCNFU5 


0170 

REF 

1 



30,2047 

60113 1 



PROG 22 B 

FARTH 

0171 





30,2050 

77614 1 


SET 


MOCN 

0172 

REF 

3 

IAST 

451 

30,2051 

01463 1 



UNAFIAG 




UNAFLAG 


20*35 OCT. 28,1968 PANDORA .080 PAGE 556 


ASSaBLB REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 


L 

P20- 

-P25 









01T4 





30,2052 

77776 

1 


exit 


01T8 

HBP 

1 



30,2053 

3 2163 

1 


CAP 

V05N7022 

0179 

REP 

127 

LAST 

555 

30,2054 

0 4555 

0 


TC 

BANKCALL 

0180 

REF 

T 

LAST 

555 

30,2055 

20763 

1 


CADR 

GCPLASHR 

0181 

Rer 

21 

LAST 

555 

30,2056 

0 4106 

1 


TC 

GOTOPOCH 

0182 





30,2057 

0 2064 

1 


TC 

+5 

0183 





30,2060 

0 2053 

0 


TC 

-5 

0184 

REP 

9 

LAST 

517 

30,2061 

3 4715 

0 


CAP 

FIVE 

0185 

REP 

T 

LAST 

555 

30,2062 

0 5415 

1 


TC 

BLANKET 

0188 

REP 

T1 

LAST 

555 

30,2063 

0 5112 

0 


TC 

ENDCFJCB 

01861 

REF 

10 

LAST 

556 

30,2064 

3 4715 

0 


CAP 

PIVE 

01862 

REP 

3 

LAST 

202 

30,2085 

54 301 

1 


TS 

MIRK INOX 

0187 

REP 

T8 

LAST 

555 

30,2086 

0 6008 

1 


TC 

INTPRBT 

0188 





30,2087 

77624 

1 


CALL 


0189 

REP 

1 



30,2070 

60234 

1 



UNPACkAE 

0190 





30,2071 

45335 

0 


SLHD 

DSU 

0191 

REP 

2 

LAST 

95 

30,2072 

02745 

0 



22SUBSCL 

0192 

REP 

1 



30,2073 

20166 

1 



P22MAXDE 

0193 





30,2074 

45044 

6 


BPL 

CALL 

0194 

RHP 

1 



30,2075 

60101 

1 



DE-GR-50 

0195 

REP 

1 



30,2076 

76333 

0 



P22SU0RA 

0196 





30,2077 

77650 

1 


GOTO 


0197 

REP 

1 



30,2100 

60120 

1 



CAILRS2 

0198 





30,2101 

77624 

1 

DE-GR-50 

CALL 


0199 

RHP 

1 



30,2102 

30208 

0 



ADVORB 

01991 





30,2103 

77776 

1 


EXIT 


01992 

REF 

7 

LAST 

553 

30,2104 

0 5261 

1 


1C 

2FHSCHNG 

01993 





30,2105 

00004 

0 


OCT 

00004 

01994 





30,2106 

05022 

1 


OCT 

05022 

01995 





30,2107 

13000 

0 


OCT 

13000 

01996 

REP 

79 

LAST 

556 

30,2110 

0 6006 

1 


TC 

INTPRBT 

0200 





30,2111 

77650 

1 


GOTO 


0201 

REP 

1 



30,2112 

80132 

1 



DCV 5 N 71 

0202 





30,2113 

43014 

0 

PROG 22 B 

CLEAR 

set 

0203 

REF 

4 

LAST 

555 

30,2114 

01663 

0 



LUNAFIAG 

0204 

REP 

2 

LAST 

58 

30,2115 

03067 

0 



KNCWNPLG 

0205 





30,2116 

77624 

1 


CAIL 


0206 

REP 

1 



30,2117 

60217 

0 



P22SUBRB 

0207 





30,2120 

77776 

1 

CALLR 52 

EXIT 


02111 

REP 

8 

LAST 

556 

30,2121 

0 5261 

1 


TC 

2PHSCHNG 

02112 





30,2122 

00004 

0 


OCT 

00004 

02113 





30,2123 

05022 

1 


OCT 

05022 

02114 





30,2124 

13000 

0 


OCT 

13000 

0212 

REF 

11 

LAST 

556 

30,2125 

3 4715 

0 


CAP 

PIVE 

0213 

REP 

4 

LAST 

556 

30,2126 

54 301 

1 


TS 

marcindx 

0217 

RHP 

80 

LAST 

556 

30,2127 

0 6006 

1 


TC 

INTPRBT 

0218 





30,2130 

77624 

1 


CAIL 


0219 

REP 

2 

[AST 

554 

30,2131 

30002 

0 



R52 

0220 





30,2132 

77776 

1 

IXV 5 N 71 

EXIT 


0221 

REP 

1 



30,2133 

3 2164 

0 


CAP 

V05N712Z 


USBRaS PAGE NO. 5 E3 S3 


TERMINATE 

PROCEED UNPACK ABODE 
RECYCLE 

I(-NED IATE RETUK4 BLANK OUT Rl,R2 


UNPACK ABODE FROM LANDMARK 


DE GREATER THAN MAX 
SUBROUTINE A SETS LAT/LCNG/ALT 


CALL ADVANCED ORBIT ROUTINE 


EARTH ORBIT 


GET LAT/LCNG/ALT FROM ASTRO 




SET MARK INDEX=5 FOR R52 
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0222 

REP 

128 

LAST 

556 

30,2134 

0 4555 0 


1C 

BANkCALL 


0223 

REP 

8 

LAST 

556 

30,2135 

20763 1 


CADR 

QCFLASHR 


0224 

REP 

22 

LAST 

556 

30,2136 

0 4106 1 


TC 

OOTOPOCH 

TERMINATE 

0225 





30,2137 

0 2144 1 


TC 

♦5 

PROCEED UNPACK ABODE 

0226 





30,2140 

0 2133 1 


TC 

-5 

RECYCLE 

0227 

REP 

12 

LAST 

556 

30,2141 

3 4715 0 


CAP 

FIVE 

M-EDIATE ENTRY BLANK OUT Rl,R3 

0228 

REP 

8 

LAST 

556 

30,2142 

0 5415 1 


TC 

BLANKET 

0229 

REP 

72 

LAST 

556 

30,2143 

0 5112 0 


TC 

btoofjcb 


0230 

REP 

81 

LAST 

556 

30,2144 

0 6006 1 


TC 

INTPRET 


0231 





30,2145 

77824 1 


CALL 



0232 

REP 

2 

LAST 

556 

30,2146 

60234 1 



INPACkAE 


0233 





30,2147 

77624 1 


CALL 


SET lat/lano/alt 

0234 

REP 

2 

LAST 

556 

30,2150 

76333 0 



P22SUBR4 


0235 





30,2151 

66744 0 

PR0G22C 

LXC,2 

SLOAD* 


0236 

REP 

29 

LAST 

447 

30,2152 

01330 0 



maikstat 


0237 

REP 

11 

LAST 

504 

30,2153 

77724 0 



OP RET, 2 


0238 

REP 

3 

LAST 

175 

30,2154 

36750 0 


STCALL 8NN 


0240 

REF 

1 



30,2155 

60255 0 



S22.1 

establish landmark - compute orbital 

0241 





30,2156 

77776 1 

P22CVER 

Exit 



02411 

REP 

27 

LAST 

536 

30,2157 

0 5301 0 


1C 

PHASCHNQ 


02412 





30,2160 

04022 0 


OCT 

04022 


0242 

REF 

2 

LAST 

555 

30,2161 

0 2036 0 


TC 

PROG 22 A 

POINT A CN GSOP 

0243 





30,2162 

01455 1 

V06N45B 

VN 

0645 


0244 





30,2163 

01306 0 

V05N7022 VN 

00570 


0245 





30,2164 

01307 1 

V0SN7122 VN 

00571 


0246 





30,2185 

00033 1 

P22MAXDE 2D0C 

27 B-14 


0246 





30,2166 

00000 1 





0247 





30,2167 

01531 1 

V06N89 

VN 

00689 


0248 





30,2170 

00077 1 

OCIL 77 

OCT 

77 

DE MASK OP ABODE 

0249 





30,2171 

00700 0 

OCTL 700 

OCT 

700 

C MASK OF ABODE 

0250 





30,2172 

07000 0 

OCTL7000 OCT 

7000 

B MASK OP ABCDE 

02505 

REP 

3 

LAST 

552 

37,2000 



setloc 

P20S 


02506 





37,2333 



bank 



0251 



LAST 


37,2333 

43020 1 

P22SUBRA 

STQ 

BOPP 

SET LAT/LCNG/ALT for known landmark 

0252 

REP 

2 

123 

37,2334 

03667 0 



S22TOPP 

0253 

REP 

3 

LAST 

556 

37,2335 

03347 1 



knownflg 


0254 

REP 

3 

LAST 

557 

37,2336 

03667 0 



S22T0FF 

UNKNOWN LANKMARK.EXIT 

0255 





37,2337 

46 1 35 1 


SLQAD 

BHIZ 

0256 

REF 

3 

LAST 

556 

37,2340 

02745 0 



22SUBSCL 


0257 

REF 

1 



37,2341 

60213 1 



CB-miNIL 

GET LAT/I.CNG/ALT FROM ASTRO 

0258 





37,2342 

50025 0 


DSU 

841 


0259 

REP 

' 1 



37,2343 

21646 0 



9 DWID 

2 B -14 

0260 

REP 

1 



37,2344 

60173 1 



S22LSITE 

GET LAT/IXNG/ALT FROM RLS HANDING SITE) 

0261 





37,2345 

70152 0 


SLl 

LXC, 1 

GET LAT/LCNG/ALT FROM TARIES 

0262 

REP* 247 

LAST 

550 

37,2346 

00154 1 



MPAC 


0263 





37,2347 

70601 1 


SETPD 

DCQAD* 


0264 





37,2350 

00001 0 



0D 


0265 

REP 

1 



37,2351 

23705 1 



ALTTAB,1 


0266 





37,2352 

64723 0 


PDCX.* 

PDDI,* 
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0287 

REP 

1 

0268 

0269 

REP 

1 

0270 

REP 

7 

0271 

REP 

4 

02715 

02716 

0272 

REF 

2 

0273 

02731 

REP 

12 

02732 

02733 

REP 

5 

02734 

02735 

REF 

4 

02736 

02737 

REP 

1 

0274 

0275 

REF 

3 

0276 

0277 

REF 

13 

0278 

0279 

REF 

2 

0280 

0281 

REP 

5 

0282 

0283 

REP 

2 

0284 

0285 

REF 

6 

0286 

REF 

7 

0287 

REF 

1 

0288 

REP 129 

0289 

REP 

18 

0290 

0291 

0292 

REF 

23 

0293 

0294 

REP 

82 

0295 

0296 

REP 

1 

0297 

0298 

REF 

8 

0299 

REF 

15 

0300 

REF 

1 

0301 

REP 

4 

0302 

REF 

16 

0303 

REF 

2 

0304 

REP 

2 

0305 

REP 

26 

0306 

REF 

4 


LAST 528 
LAST 557 
LAST 555 




LAST 451 


37.2353 

37.2354 

37.2355 
37,2358 
37,2357 
30,2000 
30,2173 


23623 1 
23541 0 
77866 1 
35104 1 
03887 0 


LCNODAB.i 

LATMB.i 

VDEP 

SICALL LAT 

S22T0FF 
®TLOC P20S1 
BANK 


last 555 
LAST 510 
LAST 440 


30.2173 

30.2174 

30 . 2175 

30.2176 

30.2177 

30.2200 

30.2201 

30.2202 

30.2203 

30.2204 

30.2205 


77634 0 
45505 0 
24007 0 
02026 1 
14001 0 
15330 0 
77624 1 
55 341 1 
77742 0 
02152 0 
77634 0 


S22LSI7E RTB 

LOADTINE 
STCVL eD 
RLS 

ST0DL OD 

HIDPHAIJ’ 

CALL 


CCNVERT RLS FRCM MOCN-PIxED TO BASIC HEP 
6-70= TIME 


0-50= LANDING SITE VECTOR 
MPAC= ANY NCN-ZERO FOR MOCN 


RLS IN BASIC REP B-27 IN MPAC 
LCJNAFLAG AND ERADFLAG SET ABOVE 
SCALE RLS B-29 FOR LAT-LCNG 


558 

30,2206 

45505 0 


LOADTDE 

SET PRESENT TIME IN MPAC FOR 


30,2207 

77624 1 

CALL 



451 

30,2210 

26322 0 


LAT-LCNG 



30,2211 

77650 1 

GOTO 



558 

30,2212 

03687 0 


S22TCFP 

EXIT 


30,2213 

77624 1 

OBTAIN!!, CALL 


GET LAT/LCNG/ALT FRCM ASTRO 

556 

30,2214 

60217 0 


P22SUBRB 



30,2215 

77650 1 

GOTO 



558 

30,2216 

036 6 7 0 


S22TCFP 

EXIT 


30,2217 

77420 1 

P22SUBRB STO 

Exit 

GET LAT/LCNG/ALT FRCM ASTRO 

558 

30,2220 

03670 0 


S22T0FP + i 



30,2221 

3 3656 1 

CAF 

V06N89B 


557 

30,2222 

0 4555 0 

TC 

bankcall 


550 

30,2223 

20624 0 

CADR 

goflajh 


557 

30,2224 

0 4106 1 

TC 

gotopoch 

terminate 


30,2225 

0 2227 1 

1C 

*2 

PROCEED 


30,2226 

0 2221 1 

TC 

-5 

ENTER OR RECYCIi3 

557 

30,2227 

0 6006 1 

TC 

INTPRET 



30,2230 

77624 1 

CALL 




30,2231 

81345 1 


LLASRDA 



30,2232 

77650 1 

GOTO 



558 

30,2233 

03670 0 


S22TOPP +1 

exit 


30,2234 

77776 1 

unpackae exit 


UNPACK LANDMARK INTO ABODE 

555 

30,2235 

3 1751 0 

CA 

IANDMARC 



30,2236 

7 2170 1 

mask 

OCTL77 


557 

30 , 2237 

55«744 0 

TS 

22SJBSCI, 

DB=L=I,MK ID NO. N 00,01, 02-; 

558 

30,2240 

3 1751 0 

CA 

IANDMARC 


555 

30,2241 

7 2172 0 

mask 

ocn/rooo 


95 

30,2242 

55«745 1 

TS 

CXQPF 

B± OFFSET INDICATOR 

555 

30,2243 

0 5435 0 

TC 

UPFIAG 

SET KNO.VNFLO 

557 

30 , 2244 

00141 0 

ACRES 

KNCWNFU7 

BIT 8 FIAG 6 
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0307 

REF 

IT 

LAST 

558 

30,2245 

3 1751 

0 

CA 

LANDMARK 

0308 

REF 

38 

LAST 

417 

30,2248 

7 4675 

0 

MASK 

BIT14 

0309 





30,2247 

0 0006 

1 

EXTEND 


0310 





30,2250 

1 2253 

0 

BzF 

♦3 

0311 

REP 

26 

LAST 

555 

30,2251 

0 5447 

0 

1C 

DCMNFLAG 

0312 

REF 

5 

LAST 

558 

30,2252 

00141 

0 

adres 

KNOWNFLG 

0313 

REP 

83 

LAST 

558 

30,2253 

0 6006 

1 

1C 

INTPRET 

0314 





30,2254 

77616 

0 

RVO 



USER«S PACK NO. a B5 33 


IP BIT14 OP LANDMArac=l ,A=2 OTHERWISE A=1 

A=1 LEAVE KNCWNFLAG SET FOR KNOWN LMC 
A=2 CLEAR KN03NFLG tBIT 8 FLAG 6) FOR 
UNKNOWN L«C 
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P0315 PROGRAM NAEE- OPTICS CALIBRATION ROUTINE 

R0316 MOD NO- 1 

R0317 MOD BY- TOM KNATT 

R0318 

R0319 FUNCTIONAL DESCRIPTION- TO EEASURE THE EFFECT OP SOLAR RADIATION ON 
R0320 THE SXT TRUNNION ANGLE AND TO STORE IKE FEASURED THJNNICN BIAS FOR P23 
R0321 

R0322 CALLING SEQUENCE- CALL 
R0323 R5T 

R0324 

R0325 SUBROUTINES CALLED- DISPLAY ROUTINES 
R0326 

R032T NORMAL EXIT MODES-VIA EGRESS 
R0328 

R0329 ALARMS- NONE 
R0330 

R0331 ABORT MODES- P23ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE 
R0332 INPUT- NONE REOUIRED, NORMALLY CALLED BY P23 

R0333 OUTPUT- TRUNNION BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OP SICMT 
R03332 < SLOS) AND LANDMARK LINE OP SIGHT (LLOS) AHE SUPERIMPOSED. THIS ANGLE 

R03334 MAY NOT BE EXACTLY ZERO BECAUSE CP UNEVEN HEATING OP THE OPTICS, FOR 
R03336 EXAMPLE. 

R0334 

R0335 ERASABLE INITIALIZATION REOUIRED- MFKBuPi, EXTVflACT 
R0336 

R033T DEBRIS- RUPTREGS USED BY MAHkRUPT AND ERASABLES USED BY DISPLAYS 


0338 





33,3772 




bank 

33 


0339 

REP 

4 

LAST 

557 

37,2000 




setloc 

P20S 


0340 





37,2360 




bank 



0341 

REF 

1 







COUNT* JS/R57 


0342 

REP 

20 

LAST 

277 

E7,1725 




EBANK= 

MRCBUFI 


0343 





37,2360 

77420 

1 

R57 

STO 

EXIT 


0344 

REP 

2 

LAST 

88 

37,2361 

02317 

0 



EGRESS 


03442 

REF 

3 

LAST 

434 

37,2362 

3 4753 

1 


CAF 

E8ANKT 


03444 

REP 

25 

LAST 

554 

37,2363 

54 003 

0 


TS 

BRANK 


0345 

REF 

19 

LAST 

518 

37,2364 

3 6211 

0 


CAF 

SIX 

BIT2 = MARKING SYSTEM IN USE 

0348 

REP 

16 

LAST 

*511 

37,2365 

7 1044 

1 


mask 

EXTVBACT 

BIT3 = EXTENDED VERB IN PROGRESS 

034T 

REP 

143 

LAST 

530 

37,2368 

10 000 

0 


CCS 

A 


0348 

REP 

1 



37,2367 

0 2437 

0 


1C 

P23ABRT 

SET, THEREFORE ABORT 

0349 

REP 

23 

LAST 

509 

37,2370 

3 4711 

1 


CAF 

BIT2 

NOT SET 

0350 

REP 

17 

LAST 

560 

37,2371 

27«044 

1 


ADS 

EXTVBACT 

SET IT 

0351 

REF 

27 

LAST 

558 

37,2372 

0 5435 

0 

R57A 

TC 

UPFIAG 

SET V59FIAG (BIT 12 FI AG 5) TO INDICATE 

0352 

REP 

1 



37,2373 

00116 

1 


ADRES 

V59FLAG 

CALIBRATION MARK 

0353 

REP 

1 



37,2374 

3 2442 

1 


■ CAF 

V59NB 


0354 

REP 

130 

LAST 

558 

37,2375 

0 4555 

0 


TC 

BANKCALL 


0355 

REP 

1 



37 , 2376 

20504 

1 


CADR 

gcmarxfr 


0356 

REP 

24 

LAST 

558 

37,2377 

0 4106 

1 


TC 

GOTOPOCH 

TERMINATE 

0357 

REP 

1 



37 , 2400 

0 2424 

1 


TC 

ENDR57 


0358 

REP 

2 

LAST 

560 

37,2401 

0 2424 

1 


TC 

ENDR5T 


0359 

REP 

10 

[AST 

368 

37,2402 

3 4716 

0 


CAF 

SEVEN 
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•360 

KEF* 

9 

LAST 

557 

37,2403 

0 5415 1 


1 C 

blanket 

BLANK OUT Rl.R2.R3 

•361 

REP 

73 

LAST 

557 

37,2404 

0 5112 0 


1 C 

ENDQPJG3 

■0362 

57X33 TRLNNICN ANGLE 

: (OCDU1 






•363 

REP 

1 



37,2405 

3 2441 1 

HARLDISP CAP 

V0SS3T® 


•304 

RSP 

131 

LAST 

560 

37,2408 

0 4555 0 


1 C 

bankcau. 


•385 

REP 

2 

LAST 

560 

37,2407 

20504 1 


CADR 

GCKAGKPa 


•366 

RBP 

25 

LAST 

560 

37,2410 

0 4106 1 


1 C 

QOrCEOEH 

TERMINATE 

•36T 

REP 

1 



37,2411 

0 2416 0 


1C 

R5TB 

PROCEED 

•368 

R23P 

1 



37,2412 

0 2372 0 


1 C 

H57A 

EL 1 ER (RECYCLE! 

•369 

REP 

13 

LAST 

557 

37,2413 

3 4715 0 


CAP 

PIVB 


•3T0 

REP 

10 

LAST 

581 

37,2414 

0 5415 1 


1 C 

BLANKET 

blank out ri,R3 

03T1 

RBP 

74 

LAST 

561 

37,2415 

0 5112 0 


1C 

EMX5MD8 

•3712 

REP 

1 



37,2416 

3 2444 1 

R57B 

CA 

19. 7TUSS 

PUT FIXED INTO ERASABLE FOR MSU 

•3714 

REP 

61 

LAST. 

533 

37,2417 

54 001 1 


TS 

L 

INSTRUCTION CCMINQ UP 

•372 

REP 

21 

LAST 

580 

37,2420 

3 1732 0 


CA 

MHCBlPi *5 

CONTAINS TRUNNION 

•37245 





37,2421 

0 0006 1 


EXTEND 



•3725 

RBP 

62 

LAST 

561 

37,2422 

20 001 1 


MSU 

L 

CORRECTS TRUNBIAS FROM 2 «S TO 1 «S 

•373 

REP 

1 



37,2423 

55«342 1 


TS 

mjNBIAS 

•376 

REP 

27 

LAST 

559 

37,2424 

0 5447 0 

BJDR57 

1 C 

DGBXFLAG 

REJ33T V 59 FLAG 

•377 

REP 

2 

LAST 

560 

37,2425 

00116 1 


AMES 

V 59 FLAG 

BIT 12 FLAG 5 

•3772 

REP 

3 

LAST 

554 

37,2428 

3 4751 0 


CAP 

E 8 ANXS 


03774 

REP 

26 

LAST 

560 

37,2427 

54 003 0 


TS 

ERA'LL 


•3776 

REP 

3 

LAST 

553 

37,2430 

3 4761 0 


CAP 

PRIOU 


•3777 

REP 

16 

LAST 

509 

37,2431 

0 5027 1 


1 C 

NCVAC 

THIS JOB CIPARS BIT IN 

•3778 

REP 

30 

LAST 

557 

1330 



EBANK= 

markswt 


•37785 

HEP 

2 

LAST 

227 

37,2432 

05423 1 


2 CADR 

ENDKAIOC 

MARKING IN R 57 SO R 53 CAN TAKE OVER 

03T765 





37,2433 

04062 1 




•378 

HEP 

84 

LAST 

559 

37,2434 

0 6006 1 


1 C 

INTPRPT 


•379 





37,2435 

T7650 1 


GOTO 



•380 

HEP 

3 

LAST 

560 

37,2438 

02317 0 



egress 


•381 

REP 

3 

LAST 

217 

37,2437 

0 5604 0 

P23ABRT 

1 C 

BAILXXJT 


•382 





37,2440 

01211 1 


OCT 

01211 


0383 





37,2441 

01527 0 

V06M87W* VN 

0687 


•384 





37,2442 

16600 0 

V59NB 

VS 

5900 


•385 





37,2443 

14600 1 

V 51 NB 

vs 

5100 


03852 





37,2444 

61740 0 

19.TTDBG OCT 

61740 
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P0388 PROGRAM DESCRIPTION 
R0387 MCD NO - 1 

R0388 MOO by - N.BRCDEUR 

R0389 FUNCTIONAL DESCRIPTION 
R0390 

R0391 TO PERFORM SHOTING MARKS IN CONJUNCTION WITH THE RENDEZVCUS NAVIG- 

R0392 ATI0N PROGRAM. CALLED BY ASTRONAUT VIA EXTENDED VERB 

R0394 CALLING SEQUENCE - 

R0395 R21 VIA V 57 

R0396 R23 VIA V 54 

R0399 SUBROUTINES CALLED - 

R0400 FLAOUP FLACDCWN BANkCALL 

R0401 FNDOPJOB GOMARK2 GCMARCP 

R04011 INTPRET GfNmAN KLEENEX 

R04012 BNDMARK 

R0402 normal exit modes- 

R0403 MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARC IN MR<BUF2 

R0404 FOR USE BY R22. WHEN ASTRONAUT IS FINISH TARING MARCS, HE HITS AN 

R0405 PROCEED , R21 IS TERMINATED THUS CAUSING THE FINAL MARC TO BE TRANSFRD 

R04051 TO MRKBUF2 FOR PROCESSING BY R22 

R0408 ALARM or ABORT EXIT MODES - 

R0407 NONE 

R0408 OUTPUT - 

R0409 T REGISTER MRKBUF2 CONTAINING TIME2 ,TIMEi,CDUY, OPTICS X.CDUZ, OPTICS Y, 
R0410 COUX. 

R0411 ERASABLE INITIALIZATION REOUIRED 
R0412 FLAGS SET AND RESET 


R0413 R21MARK (CcmjNICATICN TO MARCRUPT TO STORE MARKS IN MRkBUFi + 2) 
R0414 R23FLG INDICATES COAS MARKING 
R0415 DEBRIS - 

0416 REF 22 LAST 561 E7,1725 EBANK= MRcBUFi 

0417 REP 1 37,2000 SfiTLOC RENDEz 

0418 37,2445 BANK 


0419 

REF 

1 







COUNT* *$/R2i 


0420 

REF 

28 

LAST 

560 

37,2445 

0 5435 

0 

R21CSM 

TC 

UPFLAG 

SET R21MARC 

0421 

REF 

2 

LAST 

195 

37,2446 

00037 

0 


ADRES 

R21MARC 

BIT 14 FLAG 2 

0422 

REF 

12 

CAST 

504 

37,2447 

3 7716 

0 

R23CSM 

CA 

NEGCNE 


0423 

REP 

23 

LAST 

562 

37,2450 

55«725 

1 


TS 

MHKBuFi 


0424 

REF 

8 

LAST 

553 

37,2451 

55«734 

1 


TS 

MRCBUF2 


0427 

REF 

12 

LAST 

446 

37,2452 

3 0075 

0 


CA 

FLACXfRDi 


0428 

REF 

19 

LAST 

539 

37,2453 

7 4702 

1 


MASK 

BITg 

TEST R23FLG 

0429 





37,2454 

0 0006 

1 


EXTEND 



0430 

REF 

1 



37,2455 

1 2510 

0 


BZF 

R2lCl 

NOT SET REGULAR R21 MARKING 

0431 

REF 

1 



37,2456 

3 2535 

0 


CAF 

V0694 

R23 BACKUP MARKING 

0432 

REF 

132 

LAST- 

561 

37,2457 

0 4555 

0 


TC 

bankcau. 

DISPIAY SHAFT + TRUNNION 

0433 

REF 

5 

LAST 

496 

37,2460 

20465 

1 


CADR 

GCMARCF 

0434 

REF 

1 



37,2461 

0 2527 

0 


TC 

R21END 

TERM 

0435 





37,2462 

0 2464 

0 


TC 

*2 

PROC 
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0436 





37,2463 

0 2456 1 


1C 

-5 

ENTER 

043T 

REF 

1 



37,2464 

3 25 34 1 

R23CS41 

CAP 

V53 

PERFORM ALT LOS SIGHT MARK 

0438 

REP 

133 

LAST 

562 

37,2465 

. 0 4555 0 


1C 

bankcall 


0439 

REF 

1 



37,2466 

20470 0 


CADR 

QCNARK2 


0440 

REF 

2 

LAST 

562 

37,2467 

0 2527 0 


1C 

R21END 

V34 -TERMINATE R23 

0441 

REP 

1 



37,2470 

1 2516 0 


TCP 

R21CS4A 

PROCEED-END BACK UP MARKING (R23> 

0442 

REF 

20 

LAST 

560 

37.24T1 

3 6211 0 


CAP 

SIX 

TRANSFER ME«BUFl TO MRKBUF2 

0443 

REF 

7 

LAST 

260 

37,2472 

0 5475 1 


1C 

outran 


0444 

REP 

24 

LAST 

562 

37,2473 

01725 0 


ADRES 

MRXSUFI 


0445 

REP 

9 

LAST 

582 

37,2474 

01734 0 


ACRES 

MRCSUP2 


0451 





37,2475 

0 0006 1 


EXTSTO 



0452 

REF 

17 

LAST 

532 

37,2478 

3 0025 0 


DCA 

TI>«2 


0453 

REF 

25 

LAST 

583 

37,2477 

53«726 1 


DxCH 

KRK8UF1 

READ TIME 

0454 

REP 

4 

LAST 

528 

37,2500 

3 0033 1 


CA 

CDUY 

READ CDU ANGLES 

0455 

REF 

26 

LAST 

583 

37,2501 

55*727 0 


TS 

MRKBUEl +2 


0456 

REF 

8 

LAST 

528 

37,25 02 

3 0034 0 


CA 

CDUZ 


045T 

REF 

27 

LAST 

563 

37,250 3 

55*731 1 


TS 

MWBUFl +4 


0458 

REF 

11 

LAST 

528 

37,2504- 

3 0032 0 


CA 

CDUX 


0459 

REF 

28 

LAST 

563 

37,2505 

55*733 0 


TS 

M»<BUFl +8- 


0464 





37,2506 

0 0003 1 


HELINT 


0465 

REF 

1 



37,2507 

0 2464 0 


1C 

R23CS41 


0466 . 

REF 

1 



37,2510 

3 2443 0 

R2lCl 

CAP 

V51NB 


0467 

REF 

134 

LAST 

563 

37,2511 

0 4555 0 


1C 

RANkCALL 


0468 

REF 

2 

LAST 

583 

37,2512 

20470 0 


CADR 

GCMARK2 


0469 

REF 

3 

LAST 

563 

37,2513 

0 2527 0 


1C 

R21END 

V34-TERMINATE R21 

0470 

REP 

2 

LAST 

563 

37,2514 

1 2516 0 


TCP 

R21CSMA 

PROCEED-END R21 

0471 

REP 

2 

LAST 

562 

37,2515 

1 2510 0 


TCP 

R2lCl 

RECYCLE 

0473 

REF 

29 

LAST 

563 

37,2516 

3 1725 0 

R21CS44 

CA 

MIKBuPi 

IP -1 NO MARK 

0474 

REF 

67 

LAST 

554 

37,2517 

6 4712 1 


AD 

CNE 


0475 





37,2520 

0 0006 1 


EXTEND 



0476 

REP 

4 

LAST 

563 

37,2521 

1 2527 1 


BZP 

R21END 

zero = NO MARK 

0478 

REF 

21 

LAST 

563 

37,2522 

3 6211 0 


CAP 

SIX 

mark therefore transfer it to mrkb 

0479 

REF 

8 

LAST 

563 

37,2523 

0 5475 1 

R2lCSMi 

TC 

GENTRAN 

TRANSFER MRKBUFl TO MRKBUF2 

0480 

REF 

30 

LAST 

563 

37,2524 

01725 0 


ADRES 

MRKBUPl 

0481 

REF 

10 

LAST 

563 

37,2525 

01734 0 


ADRES 

MHKBUF2 


0482 





37,2526 

0 0003 1 


RELINT 



0487 

REF 

135 

LAST 

563 

37,2527 

0 4555 0 

R21BND 

1C 

BANkCAIL 


0488 

REF 

2 

LAST 

226 

37,2530 

20464 0 


CADR 

KLETNEX 


04881 

REP 

28 

LAST 

561 

37,2531 

0 5447 0 


1C 

DCWNFLAO 

RESET R21MARK 

04882 

REF 

3 

LAST 

562 

37,2532 

00037 0 


ADRES 

R21MARK 

BIT 14 FI AG 2 

0491 

REP 

3 

LAST 

561 

37,2533 

0 5423 1 


TC 

ENDMAHK 

END MARKING AND ENDJOB 

0494 





37,2534 

15200 1 

V53 

VN 

5300 


0495 





37,2535 

01536 0 

VO 6 94 

VN 

0694 
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1*0496 

80497 

80498 

80499 

80500 

80501 

80502 

80503 

80504 

80505 

80506 
80S0T 

80508 

80509 

80510 

80511 

80512 

80513 
805 IT 

80518 

80519 

80520 

80521 

80522 

80523 

80524 

80525 


rBEFERRSD TRACKING ATTITUDE ROUTINE R81CS4 

PROGRAM DESCRIPTION 

K5D NO - 2 

KOD BY - N.BRCDEUR 

FIMCTIONAL DESCRIPTICN- 

TO CCMPUTE IKE PREFERRED TRACKING ATTITUDE CP THE CSM TO ENABLE OPTICS 
TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED 
OR X-AXIS TRACKING ATTITUDE. 

CALLING SEQUENCE - 

TC BANKCALL 

CADR ReiCSM 

SUBROUTINES CALLED 

KAkECADR BANKCALL 

intpret flagup 

RANK JIMP CRS61.1 

PHASCHNG 

NORMAL EXIT MCDES- 

NORMAL RETURN IS TO CALLER 
OUTPUT - 

SEE OUTPUT FOR CRS61.1 d ATMTUDE MANEUVER ROUTINE (RaoCSM) 

BBASABLE INITIALIZATION REOUIRED 
CENRET USED TO SAVE O FOR RE1UJRN 
RSlCNTR MUST BE PRESET TO ZERO 
PLAGS SET + RESET 
3 -AXIS FLAG 
DEBRIS 

SEE SUBROUTINES 


FLAGDCWN 

ReoCSM 


♦ I 


0527 

REP 

3 

LAST 

114 

E6.1TT0 




EBANK= 

GENRET 


0528 

HEP 

1 







COUNT* 

S$/H61 

ROUTINES - NAVIGATION - PREF. TR. 

0529 

REP 

9 

LAST 

529 

37,2536 

3 4752 

0 

ReiCSM 

CAP 

EBANKB 

SWITCH TO EBANK 6 

0530 

REP 

27 

LAST 

561 

37,2537 

56 003 

1 


XCH 

EBANK 


0531 

HEP 

2 

LAST 

113 

37,2540 

55*771 

0 


TS 

SAVBNK 

SAVE EBANK 

0532 

REP 

2 

LAST 

383 

37,2541 

0 4604 

1 


1C 

makecadr 


0533 

REP 

4 

LAST 

564 

37,2542 

55*770 

1 


TS 

GENRET 


0534 

REP 

3 

LAST 

554 

37,2543 

11*775 

1 


CCS 

RfllCNTR 

TEST R61CNTO 

0535 

REP 

1 



37,2544 

0 2575 

1 


1C 

DECHMei 

NOT READY TO DO R61. 

0536 





37,2545 

0 2547 

0 


1C 

+2 

DO R61 

0537 

REP 

2 

LAST. 

564 

37,2546 

0 2576 

1 


1C 

DECRM61 +1 


0538 

HEP 

85 

LAST 

561 

37,25 47 

0 6006 

1 


TC 

INTPRET 


0539 





37,2550 

77624 

1 


CALL 



0540 

REP 

1 



37,2551 

71225 

1 



CRS61.1 

LOS DETERMINATION + VFH ATTITUDE 

0541 





37,255 2 

77776 

1 


EXIT 



0542 

HEP 

248 

LAST 

557 

37,2553 

50 154 

1 


INDEX 

MPAC 


0543 





37 , 2554 

0 2555 

0 


TC 

♦ 1 


0544 

REP 

1 



37,2555 

0 2574 

0 


TC 

R81END 

SUBROUTINE DRIVING DAP (EXIT R61> 

405441 











OR AUTO MODE NOT SET (EXIT R61> 

405442 











OR STIKFIAG SET (EXIT RSI) 

0545 

REF 

29 

LAST 

563 

37,2556 

0 5447 

0 

R61C1 

TC 

DCWNFIAC, 

RESET 3 -AX IS FI AC, 

0553 

REP 

3 

LAST 

391 

37,2557 

00124 

0 


ADRES 

3AXISFIG 

BIT 6 FIAG 5 


9TT= 
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0554 

REF 

68 

LAST 

563 

37,2560 

4 4712 

0 


Cs 

ONE 

0555 

REP 

4 

LAST 

564 

37,2561 

55«775 

1 


TS 

RfilCNTR 

0558 

REF 

29 

LAST 

562 

37,2562 

0 5435 

0 


TC 

UPFLAG 

055T 

REF 

2 

LAST 

304 

37,2563 

00077 

1 


ADRES 

PDSPFLAG 

0558 

REF 

136 

LAST 

563 

37,2564 

0 4555 

0 


TC 

bankcall 

0559 

REF 

2 

LAST 

391 

37,2565 

56000 

1 


CADR 

R60CS4 

0560 

REP 

30 

LAST 

564 

37,2566 

0 5447 

0 


TC 

DCWNFTAG 

0561 

REF 

3 

LAST 

565 

37,2567 

00077 

1 


ADRES 

PDSPFLAG 

0584 

REF 

28 

LAST 

557 

37,2570 

0 5301 

0 


TC 

PHASCHNG 

0565 





37,2571 

00111 

0 


OCT 

00111 

05651 

REF 

119 

LAST 

554 

37,2572 

3 4714 

1 


CAP 

ZERO 

05652 

REF 

3 

LAST 

564 • 

37,2573 

0 2575 

1 


TC 

DECRMei 

056T 

REF 

18 

LAST 

555 

37,2574 

3 6214 

0 

RfllEND 

CAP 

THREE 

0568 

REP 

5 

LAST 

565 

37,2575 

55«775 

1 

DECRM61 

TS 

RfilCNTR 

0569 

REP 

5 

LAST 

564 

37,2576 

31*770 

0 


CAE 

GENRBT 

05T0 

REF 

144 

LAST 

560 

37,2577 

22 000 

1 


LXCH 

A 

0571 

REF 

3 

LAST 

564 

37,2600 

3 1771 

1 


CA 

SAvBNK 

0572 

REF 

28 

LAST 

564 

37,2601 

56 003 

1 


XCH 

ebank 

0573 

REF 

145 

LAST 

565 

37,2602 

22 000 

1 


LXCH 

A 

0574 

REF 

6 

LAST 

384 

37,2603 

0 4577 

0 


TC 

BANK JUMP 

0575 





13,2176 




BANK 

13 

0576 

REF 

1 



23,2000 




SETLOC 

P20S2 

05TT 





23,3047 




BANK 


0578 

REP 

31 

LAST 

563 

E7.1725 




ERANKr 

MRKBUFl 


SET RfilCNTR NEG. TO INDICATE KALCMANU 


SET FLAG FOR PROIRITY DISPLAYS FOR R80 
BIT 12 FLAG 4 


RESET FLAG FOR PRIORITY DISPLAYS IN R80 
BIT 12 FLAG 4 


RETURN IS IN L 
RESTORE EBANK 

RETURN IS NOW BACK IN A 
EXIT R61 
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P0579 BVECTOR PERFORMS CCKTOTATKXJS FOR 

R0580 DELTAO, THE N2ASUR5D DEVIATION CASED CN THE DIFFERENCE IKE CSM-LE 

R0581 M STATE VECTOR ESTIMATES AND Tr3 ACTUAL TRACKING NHASURS'GSNT. 

R0582 US, IKS MODIFIED PICTITIOUS STAR DIRECTION VECTOR 

R0583 OECKBTRV VECTOR B ASSOCIATED BITH EACH TRACKING NEASURSONT. 

R0584 INPUT 

R0585 CM, 1/2 UNIT VECTOR ALCTCG TK3 CsM-LH LINE OF SIGHT (BASIC KEP.SVSTBM) 

R0586 USTAR, FICTITIOUS STAR DIRECTION Cl /2 CNIT VECTOR) 

R0587 RCLP, RELATIVE CsM TO LM POSITION VECTOR 

R0588 OUTPUT 

R0589 USWR.MOOIFIHD P I CT I TOUS STAR DIRECTION ( 1/2 UNIT VECTOR) 

R0S90 BVECTOR = 9 DIMENSIONAL BvECTOR ( 1/2 CNIT VEC.) 

R0S91 DELTAO = MEASURED DEVIATION 

R0592 CALLING SEQUENCE 

R0593 L CALL BvECTORS 

R0594 NORMAL EXIT 

R0595 L+i OP CALLING SEQUENCE 


0598 

REP 

1 





COUNT 

23/20 SUB 


0597 





23,3047 

77620 0 

BvECTORS STO 



0598 

REP 

4 

LAST 

561 

23,3050 

02317 0 


EGRESS 


0599 





23,3051 

53575 0 

VLOAD 

UNIT 


0600 

REP 

2 

LAST 

119 

23,3052 

03531 0 


RCLP 

relative position vector 

0601 





23,3053 

14033 1 

ST0DL 

2 fiD 

RCLP UNIT VEC 

0602 

REP 




23,3054 

00045 0 


38D 

RCLP ABS VALUE 

0603 

1 



23,3055 

25301 1 

STO/L 

TCMPORl 

MOVE TO SAFE LOCATION 

0604 

REF 

2 

LAST 

78 

23,3056 

01245 0 


USTAR 


0605 





23,3057 

53435 0 

vxv 

UNIT 


0606 





23,3060 

00033 1 


2&D 

USTAR = UNITCUS X LCD 

0607 

REP 

3 

LAST 

119 

23,3061 

37502 1 

stoail 

BvECTOR 


0608 

REP 

2 

LAST 

553 

23,3062 

56741 0 


GRP 2 PC 

PHASE CHANGE 

0609 





23,3053 

T7775 1 

VLOAD 



0610 

REP 

4 

I A ST 

566 

23,3064 

03502 0 


BvECTOR 


0611 

REP 

3 

(AST 

566 

23,3065 

01245 0 

STORE 

USTAR 


0612 





23,3066 

T2441 0 

DOT 

SLi 


0613 

REP 

2 

LAST 

78 

23,3067 

01235 1 


CM 

USTAR DOT CM 

0614 





23,3070 

45326 1 

ACOS 

DSU 


0615 

REP 

3 

LAST 

393 

23,3071 

15322 0 


DP1/4TH 


0616 





23,3072 

41301 0 

NORM 

DMP 


0617 

REF 

17 

(AST 

549 

23,3073 

00047 1 


XI 


0618 

REP 

1 



23,3074 

07107 0 


PI/4.0 


0619 





23,3075 

53605 1 

DMP 

SRR* 


0620 

REP 

2 

I A ST 

566 

23,3076 

01301 1 


TRMPCR 1 

RCLP ABS VALUE 

0621 





23,3077 

21576 0 


0 -3,1 

ADJUST SCAI.ING 

0622 

REP 

2 

LAST 

119 

23,3100 

27524 1 

STO/L 

DELTAO 


0623 

REP 

8 

LAST 

535 

23,3101 

15332 1 


ZERCVECS 


0624 

REF 

5 

IAST 

566 

23,3102 

03510 0 

STORE 

BVECTOR +6 


0625 

REP 

6 

LAST 

566 

23,3103 

03516 0 

STORE 

BVECTOR +120 


0626 





23,3104 

77650 1 

GOTO 
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23.3105 02317 0 EGRESS 

23.3106 31103 1 PI/4.0 2DEC .785398164 

23.3107 36652 0 
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1 
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P0629 CBIIM-BBIEIIMIN2S TK3 LINE CP SIGHT UNIT VECTOR 04 IN THE BASIC REFERENC 
R0830 B COORDINATE SYSTEM FECM IKE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM 
R0631 U 0IM3AL ANGLES . 

R0632 INPUT 

R0833 MARKDAlA.BASE ADDRESS C ? MARX DATA 

R063* REPSM4AT.ROIATICN MATRIX FROM STABLE MEMBER TO BASIC REP. COORD. SYSTEM 

R0635 SLSROUTINES CALLED- 

R0636 SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR. 

RO03T NBSM - TRANSFORM FROM NAV. BASE TO STABLE M6M83R 

R0638 OUTPUT 

R0639 MPAC = LINE OP SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYS1EM 

R0640 CALLING SEQUENCE 

R0S41 L CALL CETLM 

R0642 NORMAL EXIT 

R0643 L*1 OF CALLING fflXXENCE 


0644 





23,3110 

40220 

0 GBIUM 

STO 

SETPO 


0645 

REF 

6 

LAST 

567 

23,3111 

02317 

0 


EGRESS 


0646 





23,3112 

00001 

0 


0 


0647 





23,3113 

76740 

0 

LXC,J 

VLOW 


0648 

REP 

2 

LAST 

78 

23,3114 

01242 

1 



CONTAINS ADDRESS OF MARK DATA 

0849 





23,3115 

00002 

0 


1,1 


0650 

REF 

7 

LAST 

222 

23,3116 

23676 

1 

STCDL* MARKDOWN +1 

TRANSFER DATA FRCM WORKING STORAGE 

0651 





23,3117 

00001 

0 


0,1 

TO MAftCDOWN ARRAY FOR DOWNLINK 

0652 

REF 

8 

LAST 

568 

23,3120 

03675 

0 

STORE 

HAROXWN 


0653 





23,3121 

77774 

0 

AXT.2 



0654 





23,3122 

00002 

0 


2 


0655 





23,3123 

67064 

1 

XSU, 2 

3(A,2 


0656 

REF 

18 

LAST 

566 

23,3124 

00046 

0 


XI 

XI = MARKMTA 

0657 

REF 

6 

LAST 

431 

23,3125 

00050 

1 


Si 

Si = MARKDATA(ADR) *2 

0658 





23,3126 

77624 

1 

CALL 



0659 

REF 

3 

LAST 

501 

23,3127 

46000 

0 


SXTNB 

SGXT. ANGULAR READINGS TO NAV. RASE COOR 

0660 





23,3130 

77624 

1 

CALL 



0661 

REF 

1 



23,3131 

47541 

1 


NBSM 

TRANSFORM PRCM NAV. RASE TO STABLE MSM. 

0662 





23,3132 

76505 

0 

VXM 

VSLi 


0663 

REF 

14 

LAST 

555 

23,3133 

01736 

1 


HEFSMMAT 


0664 





23,3134 

77650 

1 ' 

GOTO 


MPAC =IUM)LINE OF SIGHT VECTOR 

0665 

REF 

7 

LAST 

568 

23,3135 

02317 

0 


BGRBSS 

EXIT 
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RENDEZVOUS TRACKING DAW PROCESSING ROUTINE (R22) 


R068T PURPOSE 
R0669 


(1) TO PROCESS RENDEZVOUS SIGHTING MARX DATA TO UPDATE THE STATE VECTOR OP EITHER THE CSM OR LM AS 
DEFINED BY THE RENDEZVOUS NAVIGATION PROGRAM (P20>. 


R08T0 ASSUMPTIONS (1-) THIS RCUTINE IS MANUALLY SELECTED BY THE ASTRONAUT BY V55E WHENEVER RENDEZVOUS SHHTING MARKS 


are desired, its selection ho;, -ever is limits: to periods when the cmc is holding for a v/n flashing 




06T6 





34,2512 




bank 

34 

06TT 

REF 

1 



34,2000 




SETLOC P20S3 

06T8 





34,2512 




bank 


0679 

REF 

1 







COUNT 

34/R22 

0680 

RES' 

3 

LAST 

553 

34,2512 

3 7663 

0 

R22 

CAP 

PRI028 

0081 

REF 

2 

LAST 

196 

34,2513 

55«056 

1 


TS 

EHSPFDT2 

06811 

REF 

e 

LAST 

553 

34,2514 

0 5103 

0 


1C 

PRIOCHNG 

0682 

REF 

1 



34,2515 

3 7714 

1 


CA 

NEG3 

0683 • 

REF 

11 

LAST 

563 

34,2516 

55«734 

1 


TS 

MRCBUF2 

0684 

REF 

66 

LAST 

564 

34,2517 

0 6006 

1 


1C 

INTPRET 

0685 





34,2520 

77634 

0 


KlS 


0687 

REF 

14 

LAST 

558 

34,2521 

45505 

0 



LOADTIM? 

0688 

REF 

2 

LAST 

171 

34,2522 

01152 

0 


STORE 

VHPTIME 

0689 





34,2523 

77624 

1 

REND1 

CALL 


0690 

REF 

3 

LAST 

566 

34,2524 

58741 

0 



GRP 2 PC 

06901 





34,2525 

77624 

1 


CALL 


0691 

REF 

1 



34,2526 

56404 

1 



WAITCNE 

0692 





34,2527 

77776 

1 

RENDjA 

EXIT 


0700 

REF 

12 

LAST 

569 

34,2530 

3 1734 

0 


CA 

MHKBUF2 

0701 





34,2531 

0 0006 

1 


Extend 


0702 

REF 

1 



34,2532 

1 2535 

1 


BzP 

REND2 

0703 





34,2533 

0 0008 

1 


EXTEND 


0704 

REP 

1 



34,2534 

6 2554 

1 


BzMF 

REND3A 

0705 

REF 

22 

LAST 

563 

34,2535 

3 6211 

0 

REND2 

CAP 

SIX 

0706 

REF 

9 

LAST 

563 

34,2536 

0 5475 

1 


TC 

GENTRAN 

0707 

REP 

13 

LAST 

569 

34,2537 

01734 

0 


ADHES 

MHKBUF2 

0708 

REF 

3 

LAST 

553 

34,2540 

01224 

1 


ADESES 

MARKTIM3 

0718 

REF 

2 

LAST 

569 

34,2541 

3 7714 

1 


CAP 

NEG3 

0719 

REF 

14 

LAST 

569 

34,2542 

55«734 

1 


TS 

MRKBUF2 

0720 





34,2543 

0 0003 

1 


BELINT 


0721 

REP 

87 

LAST 

569 

34,2544 

0 6006 

1 


TC 

INTPRET 

0722 





34,2545 

45014 

0 


CLEAR 

CALL 

0723 

REF 

1 



34,2546 

04667 

1 



SCURCFID 

0724 

REF 

4 

LAST 

569 

34,2547 

56741 

0 



GRP2PC 

0725 





34,2550 

52131 

0 


SSP 

GOTO 

0726 

REF 

3 

LAST- 

568 

34,2551 

01243 

0 



MAf«DATA 

0727 

REF 

2 

LAST 

78 

34,2552 

01224 

1 


BCADR 

VIRMP -2 

0728 

REF 

1 



34,2553 

70577 

0 



REND4 

0729 

REP 

88 

LAST 

569 

34,2554 

0 6006 

1 

REND3A 

TC 

INTPRET 

0732 





34,2555 

77624 

1 

REND3 

CALI, 



PRESENT TIME 


MAHKTIiME MUST BE CONTIGUOUS WITH VTEMP 
NEG VALUE TO INDICATE VALUES USED 


0 = OPTICS DATA 
PHASE CHANGE 
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07321 

HEP 

5 

LAST 

569 

34,2556 

07322 





34,2557 

0733 

REP 

2 

LAST 

569 

34,2560 

0734 





34,2561 

0736 

REP 

4 

LAST 

258 

34,2562 

0737 

REP 

1 



34,2563 

0730 





34,2564 

0739 

RHP 

15 

LAST 

569 

34,2565 

0740 





34,2566 

0741 

REP 

1 



34,2567 

0742 

REP 

3 

LAST 

589 

34,2570 

0743 





34,2571 

0744 

REP 

2 

LAST 

570 

34,2572 

0745 

HEP 

1 



34,2573 

0746 





34,2574 

0747 

REP 

4 

LAST 

569 

34,2575 

0748 

REP 

4 

LAST 

570 

34,2576 

0749 





34,2577 

0750 

REP 

3 

LAST 

553 

34,2600 

0751 





34,2601 

0752 

REP 

6 

LAST 

553 

34,2602 

0753 

REP 

1 



34,2603 

0754 

REP 

5 

LAST 

553 

34,2604 

0755 





34,2605 

0756 

HEP 

6 

LAST 

570 

34,2606 

0757 





34,2607 

0758 

REP 

4 

LAST 

570 

34,2610 

0759 





34,2611 

0760 

REP 

6 

LAST 

553 

34,2612 

0761 





34,2613 

0762 

REP 

4 

LAST 

555 

34,2614 

0763 

HEP 

1 



34,2615 

0764 

HEP 

4 

LAST 

553 

34,2616 

0765 





34,2617 

0766 

REP 

6 

LAST 

570 

34,2620 

0767 





34,2621 

0768 

HEP 

1 



34,2622 

0769 





34,2623 

0770 

HEP 

1 



34,2624 

0771 





34,2625 

0772 

HEP 

1 



34,2626 

0773 

HEP 

1 



34,2627 

0774 





34,2630 

0775 

HEP 

3 

LAST 

257 

34,2631 

0776 

HEP 

5 

LAST 

570 

34,2632 

0777 

REP 

1 



34,2633 

0778 





34,2634 

07781 

REP 

1 



34,2635 

07782 





34,2636 

0779 

HEP 

1 



34,2637 


56741 0 



GRP2PC 

77624 1 


CALL 


56404 1 



WAITCNE 

77614 1 


BQFF 


04746 0 



VHFRFLAG 

70527 0 



REND 1 A 

77634 0 


RIB 


45505 0 



LOADTIMS 

45225 0 


DSU 

DSU 

14647 1 



60SECDP 

01152 0 



VHPTIf® 

45040 1 


BM) 

CALL 

70527 0 



RHNDiA 

56415 1 



RANGERD 

77745 1 


DLOAD 


01225 0 



MARCH ME 

01152 0 


STORE 

VHFTIME 

77624 1 

REND4 

CALL 


56343 0 



SETINTG 

45014 0 


BCN 

CALL 

00707 1 



VFHUPFLG 

71034 0 



CSMUPP 

27113 1 



INTEGRV 

77624 1 


CALL 


56741 0 



GRP2PC 

77624 1 


CALL 


56343 0 



SETINTG 

77614 1 


CLEAR 


01674 0 



VINTELAG 

43014 0 

RENDS 

BQFF 

SET 

02756 1 



RENLWFLG 

70617 0 



HENDsA 

01476 0 



dimoflag 

77624 1 

HEND5A 

CALL 


27113 1 



INTEGRV 

77624 1 


CALL 


56526 0 



SIIF1NDX 

77624 1 


CALL 


71123 1 



CMPOS 

45014 0 


SET 

CAIL 

02464 0 



INCORFLG 

71132 1 



LMPOS 

43014 0 


CLEAR 

BCN 

01671 0 



ORflWFLAG 

02716 0 



R&JIWFLG 

70643 1 



RENDfi 

77745 1 


DI-OAD 


02001 1 



WRENDPOS 

34001 1 


STCALL 

0 

56544 1 



INITIAL* 


USBR«S PACE NO. 19 El S3 


PRESENT TIME 
1 MIN 

LAST READING OP RADAR 

READ RADAR RANGE 

FOR DCWNLINK 
SET INTEGRV FLAGS 

branch if csm update 

PHASE CHANGE 

SET INTEGRV FLAGS 

set INTEGRATICN VEHICIE to lm 

DO NOT INTEGRATE w IF FIAG = 0 

SET earth mocn scaling index 
set csm positicn 

SET FOR 1ST PASS 
SET LM POSITICN 

CLEAR FOR ORBITAL AND CISUJNAR 

0 r WRENDPOS 1= WRBNDVEL 
INITIALIZE W MATRIX 
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34,2640 

77745 1 


DLQAD 



0TT92 

REP 

9 

LAST 

566 

34,2641 

15332 1 



ZERCVECS 


07793 

REP 

6 

LAST 

552 

34,2842 

01126 0 


STORE 

VHFCNT 

ZERO OUT VHPCNT AND TRKttCCNT 

0780 





34,2643 

77614 1 

RENDe 

SET 



0781 

REP 

6 

LAST 

570 

34,2644 

02478 0 



RaCWFLQ 


0782 





34,2645 

52375 1 


VLOAD 

VSU 


0783 

REP 

2 

LAST 

78 

34,2646 

01215 0 



LBMPOS 


0784 

REP 

2 

LAST 

78 

34,2647 

01207 0 



CS4POS 


0785 

REP 

3 

LAST 

566 

34,2650 

03531 0 


STORE 

RCLP 

LM - CSM 

0786 





34,2651 

43056 0 

REND 7 

UNIT 

BCN 


0787 

REP 

2 

LAST 

569 

34,2652 

04707 0 



SOURCFLO 


0788 

REF 

1 



34,2653 

71045 0 



RB®14 

branch if data is radar 

0789 

REF 

1 



34,2654 

01273 0 


STORE 

UCL 


0790 





34,2655 

45014 0 


B0PP 

CALL 


0791 

REP 

2 

LAST 

570 

34,2856 

02744 1 



INCORFLG 


0792 

REP 

1 



34,2657. 

70871 0 



RBfl>9 


0793 

REP 

1 



34,2860 

47110 1 



GETLN 

CALCULATE UM LINE OP SICHT 

0794. 

REF 

3 

LAST 

586 

34,2661 

25 2 35 1 


STCVL 

UM 


0795 

REP 

2 

LAST 

571 

34,2682 

01273 0 



UCL 


0796 





34,2663 

40035 0 


vxv 

BCV 


0797 

REP 

4 

LAST 

571 

34,2684 

01235 1 



IM 

UCL X UM 

0798 

REP 

1 



34,2665 

70666 0 



RfNDg 


0799 





34,2866 

40056 0 

M3©8 

UNIT 

BCV 


0800 

REP 

1 



34,2667 

70555 0 



REWD 3 

branch IP OVERFLOW IGNORE mark 

0801 

REF 

4 

LAST 

568 

34,2670 

01245 0 


STORE 

USTAR 


0802 





34,2671 

77624 1 

RENDg 

CALL 



0803 

REP 

1 



34,267 2 

47047 1 



BvECTORS 


0804 





34,2673 

77214 0 


BCN 

VLOAD 


0805 

REP 

7 

LAST 

570 

34,2674 

00707 1 



V&UPFLG 


0806 

REP 

1 



34,2675 

70701 0 



R&JDgA 


0807 

REP 

7 

LAST 

566 

34,2676 

03502 0 



BVECTOR 


0808 





34,2877 

77876 0 


VCCMP 



0809 

REP 

8 

LAST 

571 

34,2700 

03502 0 


STORE 

bvector 


0810 





34,2701 

77824 1 

REND 9 A 

CALL 



08101 

REP 

7 

LAST 

570 

34,2702 

56741 0 



C3HP2PC 


08102 





34,2703 

77814 1 


BCN 



0811 

REP 

3 

LAST 

251 

34,2704 

00706 0 



R23FLG 


0812 

REP 

1 



34,2705 

71078 0 



REND 15 

Branch IP BACKUP OPTICS CR23 WORKING) 

0813 





34,2706 

43345 1 


DLQAD 

DAD 


0814 

REP 

1 



34,2707 

31220 0 



SXTVAR 


0815 

REP 

1 



34,2710 

31222 1 



IHlVAR 


0816 

REP 

2 

LAST 

119 

34,2711 

275 26 0 

REND 10 

STCVL 

VARIANCE 

TEMP STORAGE FOR VARIANCE CAIY). 

0817 

REP 

4 

LAST 

571 

34,2712 

035 3 1 0 



RCLP 


0818 





34,2713 

60248 1 


ABvAL 

NORM 


0819 

REP 

19 

LAST 

568 

34,2714 

00047 1 



XI 


0820 





34,2715 

41316 0 


dso 

DMP 


0821 

REF 

3 

LAST 

571 

34,2716 

03526 0 



VARIANCE 


0822 





34,2717 

45070 1 


XAD, 1 

CAU, 


0823 

REP 

20 

LAST 

571 

34,2720 

00046 0 



XI 


0824 

REP 

2 

LAST 

570 

34,2721 

56528 0 



9IIFTNPX 

GET EARTH MOON SCALING INDEX 
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34,2722 

56070 0 

XAD.l 

XAD.i 


0826 

RKP 

T 

LAST 

548 

34,2723 

00047 1 


X2 


t 8 ZT 

REF 

8 

LAST 

572 

34,2724 

00047 1 


X2 


0828 





34,2725 

72257 1 

SI* 

TLQAD 


0820 





34,2726 

20577 0 


0 - 2,1 

ADJUST SCALING TO B -40 

0830 

REF 

249 

LAST 

564 

34,2727 

00155 0 


MPAC 


0831 

REF 

4 

LAST 

571 

34,2730 

03526 0 

STORE 

VARIANCE 


08311 





34,2731 

54335 0 

SLOAD 

SR 


083114 

REP 

2 

LAST 

90 

34,2732 

02400 1 


INTVAR 

INTEGRATION VARIANCE SCALED B -15 

083118 





34,2733 

20632 1 


25D 

SCALE IT B -40 

083122 





34,2734 

47171 0 

TAD 

RIB 


083126 

REP 

5 

LAST 

572 

34,2735 

03526 0 


VARIANCE 


083128 

REP 

1 



34,2736 

45562 1 


TPMCDe 


08313 

REF 

6 

LAST 

572 

34,2737 

03526 0 

STORE 

VARIANCE 


0832 





34,2740 

76214 1 

BOFF 

TAD 


0833 

REP 

3 

LAST 

571 

34,2741 

04747 1 


SOURCFLG 

branch if not vhf radar 

9834 

REP 

1 



34,2742 

70751 0 


RENDioA 


0835 

REP 

1 



34,2743 

03005 1 


rvakiin 

VHF radar min. variance 

0836 





34,2744 

72244 0 

BPL 

TLOAD 


083T 

REP 

2 

LAST 

572 

34 , 2745 

70751 0 


RENDioA 


0838 

REP 

2 

LAST 

572 

34,2746 

03005 1 


RVAflMIN 


08381 





34,2747 

77646 0 

ABS 


MIN. VALUE WAS STORED AS NEG. 

0839 

REP 

7 

LAST 

572 

34,2750 

03526 0 

STORE 

VARIANCE 

STORE MIN. VALUE 

0840 





34,2751 

45014 0 

RENDioA CLEAR 

CALL 


0841 

REP 

1 



34,2752 

02666 0 


DMEIFLG 

clear for e x e w matrix 

0842 

REP 

1 



34,2753 

75250 1 


INCORPi 

CALCULATE UPDATE 

08421 





34,2754 

77624 1 

CALL 



08422 

REP 

8 

LAST 

571 

34,2755 

56741 0 


GRP 2 PC 


0843 





34,2756 

45014 0 

BOFF 

CALL 


0844 

REP 

3 

LAST 

571 

34,2757 

02744 1 


INCQRFLG 


0845 

REP 

1 



34,2760 

71006 1 


REND 12 


0848 

REP 

3 

LAST 

571 

34,2761 

56526 0 


SIIPINDX 

GET EARTH MOCN SCALING INDEX 

084T 





34,2762 

51575 1 

VLOAD 

ABvAL 


0848 

REF 

5 

LAST 

78 

34,2763 

01265 1 


DELTOX +6 


0849 





34,2764 

77657 0 

SR* 



0850 





34,2765 

57176 0 


0,2 


0851 

REP 

4 

LAST 

275 

34,2766 

27504 0 

STCVL 

N*gDISP +2 


0852 

REP 

6 

LAST 

572 

34,2767 

01257 0 


DELTAX 


0853 





34,2770 

53646 0 

ABvAL 

SR* 


0854 





34,2771 

57176 0 


0,2 


0855 

REP 

5 

LAST 

572 

34,2772 

03502 0 

STORE 

N 49 DISP 


08551 





34,2773 

77735 0 

SLOAD 



0856 

REP 

1 



34,2774 

02003 0 


BMAx 


0857 





34,2775 

45261 0 

SR 

DSU 


0858 





34,2776 

20613 1 


10 D 


0859 

REP 

6 

LAST 

572 

34,2777 

03502 0 


N 49 DISP 


0860 





34,3000 

67240 0 

Bm 

SXVAD 


0861 

REP 

1 



34,3001 

71141 0 


REND ISP 

branch ip pos up. greater than max. 

0862 

REP 

1 



34,3002 

02004 1 


VMAX 


0863 





34,3003 

50025 0 

Dai 

B^N 
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0884 

REE 

T 

LAST 

572 

34,3004 

03504 

0 



N49DISP *2 


0865 

REP 

2 

LAST 

572 

34,3005 

71141 

0 



RENDISP 

BRANCH IF VEL. UPDATE GREATER THAN MAX. 

0806 





34,3006 

77624 

1 

K3ND12 

CALL 



0869 

REP 

1 



34,3007 

75462 

0 



INCORP2 

INCORPORATE UPDATE VALUES INTO STATE VEC 

0870 





34,3010 

43014 

0 


BON 

BOFP 


0871 

REP 

4 

LAST 

572 

34,3011 

04707 

0 



S0URCFUJ 


0872 

REP 

1 



34,3012 

71103 

0 



Reoie 

branch if data is radar 

0873 

REP 

4 

LAST 

572 

34,3013 

02744 

1 



INCORFLG 


0874 

REP 

1 



34,3014 

71111 

0 



RENDit 


0875' 





34,3015 

77824 

1 


CALL 



0876 

REP 

4 

LAST 

572 

34,3016 

58526 

0 



SIIFINDX 

GET EARTH MOCN SCALING INDEX 

0877 





34,3017 

45014 

0 


BCN 

CALL 


0878 

REP 

8 

LAST 

571 

34,3020 

00707 

1 



VEHUPFLG 


0879 

REP 

1 



34,3021 

71117 

0 



RBTO18 

branch if csm update 

0880 

REP 

2 

LAST 

570 

34,3022 

71132 

1 



LMPOS 

GET LM POSITION 

0881 





34,3023 

77624 

1 

REND13 

CALL 



0882 

REP 

9 

LAST 

572 

34,3024 

58741 

0 



GRP2PC 

PHASE CHANGE 

0883 





34,3025 

52375 

1 


VLOVD 

VSU 


0884 

REP 

3 

LAST 

571 

34,3026 

01215 

0 



LEMPOS 


0885 

REP 

3 

IAST 

571 

34,3027 

01207 

0 



CS4POS 


0886 

REP 

5 

LAST 

571 

34,3030 

03531 

0 


STORE 

BCLP 

LM - CSM 

0887 





34,3031 

77814 

1 


CLHGO 



0888 

HEP 

5 

LAST 

573 

34,3032 

02824 

0 



INCORFLG 


0889 

REP 

1 



34,3033 

70651 

1 



REND7 

BRANCH FOR 2ND PASS THIS OPTICS MARK 

0890 





34,3034 

45014 

0 

CS'UPP 

clear 

CALL 


089i 

REP 

T 

LAST 

570 

34,3035 

01674 

0 



VINTELAG 

SET INTEGRATION VEHICLE EO LM 

0892 

REF 

7 

LAST 

570 

34,3036 

27113 

1 



INTEGRV 


0893 





34,3037 

77624 

1 


call 



0894 

HEP 

10 

LAST 

573 

34,3040 

56741 

0 



GRP2PC 

PHASE CHANGE 

0895 





34,3041 

77624 

1 


CALL 



0896 

REP 

5 

LAST 

570 

34,3042 

56343 

0 



setintg 

SET FLAGS FOR INTEGRATION 

0897 





34,3043 

77650 

1 


GOTO 



0098 

REP 

1 



34,3044 

70613 

1 



RENDs 


0899 

REP 

9 

LAST 

571 

34,3045 

27502 

0 

REND14 

STCVL 

BvECTOR 

VHP RADAR BvECTOR 

0900 

REF 

10 

LAST 

571 

34,3046 

15332 

1 



ZEROES 


0901 

REP 

10 

LAST 

573 

34,3047 

03510 

0 


STORE 

BVECTOR +6 


0902 

REP 

11 

LAST 

573 

34,3050 

27516 

0 


STCVL 

BvECTOR +12D 


0903 

REP 

6 

LAST 

573 

34,3051 

03531 

0 



HCLP 


0904 





34,3052 

71256 

0 


UNIT 

DLCAD 


0905 

REP 

1 



34,3053 

01257 

0 



VHFRANGE 

VHFRANGE SCAIED B_2T 

0906 





34,3054 

60414 

0 


BCN 

SR2 


0907 

REP 

T 

LAST 

510 

34,3055 

04303 

0 



MOCNTHIS 


0908 





34,3056 

71057 

0 



♦ 1 


0909 





34,3057 

43025 

1 


DSU 

set 


0910 





34,3060 

00045 

0 



36 D 

ABvAL (RCLP) 

0911 

REP 

6 

LAST 

573 

34,3061 

02464 

0 



INCORFIjG 


0912 

REP 

3 

LAST 

566 

34,3062 

035 24 

1 


STORE 

DfiLTAO 


0913 





34,3063 

77214 

0 


BOFF 

VIXMD 


0914 

REP 

9 

LAST 

573 

34,3064 

00747 

0 



VHIUPFIX3 


0915 

REP 

1 



34,3065 

71071 

1 



REND14A 
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0918 

REP 

12 

LAST 

573 

34,3066 

035 0 2 0 



bvector 


0917 





34,3067 

77676 0 


VCOfP 



0918 

REF 

13 

LAST 

574 

34,3070 

03502 0 


STORE 

BvECTOP. 


0919 





34,3071 

77624 1 

R0TO14A 

CALL 



09191 

REF 

11 

LAST 

573 

34,3072 

56741 0 



ORP 2 PC 


09192 





34,3073 

52145 0 


DLCHD 

GOTO 


0920 

REP 

1 



34,3074 

03003 1 



rvar 


0921 

REF 

1 



34,3075 

70711 1 



REND 10 


0922 





34,3076 

43335 0 

RENDis 

SLOAD 

DAD 

GET ALT LOS VARIANCE 

0923 

REP 

1 



34,3077 

01357 1 



ALTVAR 

BACKUP OPTICS 

0924 

REP 

2 

LAST 

571 

34,3100 

31222 1 



IMLVAR 

I MU VARIANCE 

0925 





34,3101 

77650 1 


GOTO 



0926 

REP 

2 

LAST 

574 

34,3102 

70711 1 



RENDjo 


0927 





34,3103 

62150 1 

REND16 

LXA,I 

INCR,i 


0928 

REF 

7 

LAST 

571 

34,3104 

01125 0 



VHFCNT 

VHP RADAR UPDATE COUNT 

0929 





34,3105 

00001 0 


DEC 

1 


0930 





34,3106 

52130 1 


SCA.l 

GOTO 


0931 

REP 

8 

LAST 

574 

34,3107 

01125 0 



VHPCNT 

UPDATE COUNT 

0932 

REP 

1 



34,3110 

70523 1 



RENDi 


0933 





34,3111 

62150 1 

RENDlT 

LXA.l 

INCR.i 


0934 

REP 

4 

LAST 

552 

34,3112 

01126 0 



TROKCNT 

OPTICS MARK COUNT 

0935 





34,3113 

00001 0 


Dec 

1 


0936 





34,3114 

52130 1 


SCA ,1 

GOTO 


0937 

REP 

5 

LAST 

574 

34,3115 

01126 0 



TWOKCNT 

UPDATE COUNT 

0938 

REP 

2 

LAST 

571 

34,3116 

70555 0 



REND 3 


0939 





34,3117 

77624 1 

RENDj .8 

CALL 



0940 

REP 

2 

LAST 

570 

34,3120 

71123 1 



CMPOS 

GET CSM POSITION 

0941 





34,3121 

77650 1 


GOTO 



0942 

REP 

1 



34,3122 

71023 0 



RENDi 3 


0943 





34,3123 

53775 1 

CMPOS 

VIXMD 

VSR* 


0944 

REP 

1 



34,3124 

01573 1 



DBLTACSM 


0945 





34,3125 

57167 0 



T,2 


0946 





34,3126 

77655 1 


VAD 



0947 

REF 

1 



34,3127 

01607 1 



RCVCSM 


0948 

REP 

4 

LAST 

573 

34,3130 

01207 0 


STORE 

CSMPOS 

CSH POSITION SCALED B-2' 

0949 





34,3131 

77616 0 


RVO 



0950 





34,3132 

53775 1 

LMPOS 

VLOAD 

VSR* 


0951 

REP 

1 



34,3133 

01645 1 



DELTA UFM 


0952 





34,3134 

57167 0 



T,Z 


0953 





34,3135 

77655 1 


VAD 



0954 

REP 

1 



34,3136 

01661 1 



HCvlTM 


0955 

REP 

4 

LAST 

573 

34,3137 

01215 0 


STORE 

LEMPOS 

LM POSITION SCALED B -27 

0956 





34,3140 

77616 0 


RVO 



0963 





34,3141 

77776 1 

RENDISP 

EXIT 



0964 

REF 

8 

LAST 

496 

34,3142 

3 0105 0 


CA 

FTACWRDg 


0965 

REF 

22 

LAST 

436 

34,3143 

7 4703 0 


MASK 

BIT 8 


0966 





34,3144 

0 0006 1 


Extend 



0967 





34,3145 

1 3150 1 


BzF 

+3 


0968 

REP 

24 

LAST 

560 

34,3146 

3 4711 1 


CA 

BIT 2 


0969 





34,3147 

0 3151 1 


1 C 

*2 







I 
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ooto 

REF 

37 

LAST 

509 

34,3150 

3 4712 1 


CA 

BITl 


09T1 

REF 

8 

LAST 

573 

34,3151 

55*505 1 


TS 

N49DISP +4 


09T11 

REF 

120 

LAST 

565 

34,3152 

3 4714 1 


CAP 

ZERO 

SET T04POR1 S ZERO TO INDICATE 

09T12 

REF 

3 

LAST 

566 

34,3153 

55*300 1 


TS 

TEMPORl 

V06 N49 display hasnt been answered 

09T13 

REP 

29 

LAST 

585 

34,3154 

0 5301 0 


TC 

FHASCHNG 


09T14 





34,3155 

04022 0 


OCT 

04022 


09T15 

REP 

1 



34,3156 

i 3 7664 1 


CAP 

PRI027 

SET UP DISPLAY JOB WITH HIGHER PRIORITY 

09716 

REF 

17 

LAST 

561 

34,3157 

0 5 0 27 1 


TC 

NOVAC 


097165 

REF 

32 

LAST 

565 

87,1725 



EBANK: 

: MTKBUFi 

THAN PRESENT JOB 

09717 

REF 

1 



34,3160 

03172 0 


2CADR 

RENDISP2 


09717 

REF 

1 



34,3161 

70067 1 





097175 

REF 

89 

LAST 

589 

34,3162 

0 6006 1 

RENDISP7 1C 

INTPRET 


097177 

REP 

250 

LAST 

572 

34,3163 

00155 0 


STORE 

MPAC 


097179 





34,3164 

53135 0 


SLOAD 

BzE 


097181 

REF 

•4 

LAST 

575 

34,3165 

01301 1 



704POR1 


097183 REF 

1 



34,3186 

71163 0 



RENDISP7 +1 

DISPIAY HAS NOT BEEN ANSWERED YET 

097185 





34,3167 

52040 1 


R*4 

GOTO 


097187 

REP 

2 

LAST 

572 

34,3170 

71006 1 



REND12 

NEG INDICATES PROCEED 

097189 

REP 

1 



34,3171 

71201 1 



R©®ISP3 

POS INDICATES RECYCLE 

0972 

REP 

1 



34,3172 

3 3223 1 

RENDISP2 CAP 

VO6N49 


0973 

REP 

137 

LAST 

565 

34,3173 

0 4555 0 


TC 

rankcall 


0974 

REP 

1 



34,3174- 

20635 0 


CADR 

PRICDSP 


0975 

REP 

2 

LAST 

385 

34,3175 

0 4550 0 


TC 

GOTCV56 

TERM EXIT P20 VIA V56 

0976 

REP 

69 

LAST 

565 

34,3176 

4 4712 0 


CS 

OLE 

NEG INDICATES PROCEED RENDISP7 JOB 

0977 

REP 

5 

LAST 

575 

34,3177 

55*300 1 


TS 

TFMPORl 

POS INDICATES RECYCIJ3 RENDISP7 JOB 

0978 

REP 

75 

LAST 

561 

34,3200 

0 5112 0 


TC 

ENDCPJCB 

GO COMPLETE ABOVE JOB 

0986 





34,3201 

77614 1 

RENDISP3 BCN 



0988 

REP 

5 

LAST 

573 

34,3202 

04707 0 



SCURCFLG 


0989 

REP 

2 

LAST 

574 

34,3203 

70523 1 



RENDl 

data was radar go uxk for optics next 

0990 





34,3204 

77776 1 


EXIT 



0991 

REP 

33 

LAST 

575 

87,1725 



EBANK= 

MRKBUFl 


0992 





34,3205 

0 0004 0 


INHINT 



0993 

REF 

1 



34,3206 

3 3224 0 


CAP 

BUFBANK 


0994 

REF 

13 

LAST 

413 

34,3207 

54 006 0 


TS 

bbank 


0995 

REP 

13 

LAST 

562 

34,3210 

3 7716 0 


CA 

NEGCNE 


0996 

REF 

34 

LAST 

575 

34,3211 

55*725 1 


TS 

MRKBuP] 

erase mark cne buffer 

0997 

REP 

15 

LAST 

569 

34,3212 

55*734 1 


TS 

MRGBUF2 

erase mark two buffer 

0998 





34,3213 

0 0003 1 


RELINT 



0999 

REP 

90 

LAST 

575 

34,3214 

0 6006 1 

RENDISP4 

TC 

INTPRET 


1000 





34,3215 

77650 1 


GOTO 



1001 

REF 

3 

I A ST 

574 

34,3216 

70555 0 



R8ND3 


1002 





34,3217 

00052 0 

SXTVAR 

2DEC 

0.04 8-6 B+16 

SXT ERROR VARIANCE = .04 (MR) SO 

1002 





34,3220 

38307 0 





1003 





34,3221 

00052 0 

IMJVAR 

2DEC 

0.04 8-6 Btie 

IMU ERROR VARIANCE = .04 (MR) SO 

1003 





34,3222 

36307 0 





1008 





34,3223 

01461 0 

V06N49 

VN 

0649 


1009 

REF 

35 

LAST 

575 

87,1725 



EBANK= 

MRKBUFl 


1010 

REF 

2 

IAST 

575 

34,3224 

70067 1 

BUFBANK 

BBCCN 

RENDISP3 


1011 





31,2021 



BANK 

31 


1012 

REF 

1 



27,2000 



seil-oc 

R22S1 
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1013 





27 ,2343 




bank 



1014 





27,2343 

45020 

1 

SETINTG 

STQ 

CALL 


1015 

RBP 

6 

LAST 

568 

27,2344 

02317 

0 



EGISSS 


1016 

RBP 

14 

LAST 

511 

27,2345 

27371 

1 



INTSMLL 

RESERVE INTEGRATICN 

1017 





27,2348 

43145 

0 


DLOAD 

set 


1018 

REP 

5 

LAST 

570 

27,2347 

01225 

0 



marktimb 


1019 

REP 

1 



27,2350 

01472 

1 



SWTEFLG 


1020 

RHP 

27 

LAST 

555 

27,2351 

00041 

1 


STORE 

TDECi 

maritime 

1021 





27,2352 

43014 

0 


CLEAR 

CLEAR 


1022 

REP 

8 

LAST 

503 

27,2353 

01673 

1 



intypplg 

PRECISION INTEGRATICN 

1023 

REP 

5 

LAST 

570 

27 , 2354 

01676 

1 



DIMoPLAG 


1024 





27,2355 

43014 

0 


set 

clrgo 


1025 

REP 

8 

LAST 

573 

27,2358 

01474 

1 



VINTPLAG 

SET VEHICLE EQ. CS4 

1026 

REP 

1 



27,2357 

01635 

0 



DeORgPUT 

set w matrix DIM. EO 6 

1027 

REP 

9 

LAST 

576 

27,2360 

02317 

0 



egress 

EXIT 

1028 





27,2381 

77620 

0 

CNTCHK 

sra 



1029 

REP 

2 

LAST 

77 

27,2362 

01150 

1 



POINTEX 


10291 





27,2363 

77614 

1 

ccntchk 

BOFF 



10292 

REP 

3 

LAST 

529 

27,2364 

01742 

1 



REPSMFIG 

branch TO END OP JOB IF REFSMMAT 

10293 

REP 

1 



27,2365 

30147 

0 



ENDPLAC 


1030 





27,2366 

50135 

0 


SLOAD 

BW 


10301 

REP 

8 

LAST 

565 

27,2367 

03376 

0 



R81CNTR 


10302 

RBP 

1 



27,2370 

56406 

0 



WAITCNEi 


10303 





27,2371 

43014 

0 


BCN 

BOPP 

IS track flag set 

1031 

RBP 

14 

LAST 

553 

27,2372 

00710 

1 



UPDATPLG 


1032 

REP 

3 

LAST 

576 

27,2373 

01150 

1 



POINTEX 


1033 

REP 

4 

LAST 

553 

27,2374 

00752 

1 



TRACkFIG 


1034 

REP 

2 

LAST 

576 

27,2375 

30147 

0 



B1DPLAC 


1035 





27,2376 

77776 

1 


EXIT 



1036 

REP 

30 

LAST 

575 

27,2377 

0 5301 

0 

RHDOR 22 

TC 

PKASCHNG 


1037 





27,2400 

00132 

1 


OCT 

00132 


1038 

REP 

4 

LAST 

569 

27,2401 

3 7663 

0 


CAP 

PRI026 


1039 

REP 

7 

LAST 

569 

27,2402 

0 5103 

0 


TC 

PRIOCHNG 


1040 

RBP 

3 

LAST 

570 

27,2403 

0 2407 

0 


TC 

WAITCNE +3 


1041 





27 , 2404 

77620 

0 

WAITCNE 

STO 



1042 

RBP 

4 

LAST 

576 

27,2405 

01150 

1 



POINTEx 


10421 





27,2406 

77776 

1 

WAITCNEi 

EXIT 



1043 

REP 

2 

IAST 

139 

27,2407 

3 4740 

0 


CAP 

4SECS 

WAIT 4 SECS. 

1044 

RBP 

138 

LAST 

575 

27,2410 

0 4555 

0 


TC 

BANKCALL 


1045 

REP 

7 

LAST 

536 

27,2411 

01732 

0 


CADR 

DEIAYJOB 


1046 

REP 

91 

LAST 

575 

27,2412 

0 6006 

1 


TC 

JNTPRET 


1047 





27,2413 

77650 

1 


GOTO 



1048 

REP 

1 



27,2414 

56363 

1 



CCNTCHK 

check AGAIN NOW 

1049 





27,2415 

77776 

1 

RANGERD 

EXIT 



1050 





27,2416 

0 0004 

0 


INHINT 



1051 

RBP 

1 



27,2417 

4 2472 

0 


CS 

OCT17 


1052 





27,2420 

0 0006 

1 


EXTEND 



1053 

REP 

6 

CAST 

381 

27,2421 

03 013 

0 


WAND 

CHAN 13 

zero OUT BITS 1-4 OP CHANNEL 13 

1054 

REP 

1 



27,2422 

3 4334 

1 


CAP 

OCTii 


1055 





27,2423 

0 0006 

1 


EXTEND 








assemble revision 249 op aoc program colossus by hasa 2021111-041 


Z0’35 OCT. 28,1968 PANDORA .080 PAGE 577 



L 

P20- 

-P25 




1056 

REF 

T 

LAST 

576 

27,2424 

1057 





27,2425 

1058 





27,2426 

1059 

REF 

18 

LAST 

563 

27,2427 

1080 

REF 

6 

LAST 

578 

27,2430 

1061 

REP 

139 

LAST 

576 

27,2431 

1062 

REF 

1 



27,2432 

1063 

REF 

1 



27,2433 

10635 

REF 

2 

LAST 

258 

27,2434 

1065 

REP 

92 

LAST 

576 

27,2435 

1066 





27,2436 

1087 

REF 

2 

LAST 

123 

27,2437 

10671 

REF 

1 



27,2440 

1068 





27,2441 

1089 

REF 

1 



27,2442 

10691 





27,2443 

1070 

REP 

6 

LAST 

575 

27,2444 

1071 

REF 

2 

LAST 

573 

2T.2445 

1072 





27,2446 

10721 





27,2447 

10722- 

REF 

251 

LAST 

575 

27,2450 

10723 

REF 

13 

LAST 

538 

27,2451 

10724 

REP 

252 

LAST 

577 

27,2452 

10725 

REP 

93 

LAST 

577 

27,2453 

10T3 





27,2454 

10731 

REF 

2 

LAST 

577 

27,2455 

10732 





27,2456 

10733 

REF 

1 



27.2457 

10734 

REF 

1 



2T.2460 

10738 

REF 

1 



27,2461 

107406 

REP 

94 

LAST 

577 

27,2462 

10741 





27,2463 

10742 

REF 

7 

LAST 

577 

27,2464 

10743 

REP 

5 

LAST 

570 

27,2465 

1075 





27,2466 

1076 

REP 

3 

LAST 

575 

27,2467 

10761 





27,2470 

10761 





27,2471 

1077 





27,2472 

10781 





27.24T3 

1079 





27,2474 

1079 





27,2475 

1080 





27,2476 

1081 

REP 

9 

LAST 

368 

27,2477 

1082 

REF 

5 

LAST 

539 

27,2500 

10821 

REF 

121 

LAST 

575 

27,2501 

10822 

REF 

2 

LAST 

72 

27,2502 

1083 





27,2503 

1084 

REP 

5 

LAST 

539 

27,2504 

10841 

REP 

34 

LAST 

439 

27,2505 


05 013 0 


WQR 

CKAMl 3 

0 0003 1 


RELINT 

0 0006 1 


©OB® 

3 0025 0 


DCA 

TE®2 

53«225 1 


PXCH 

kargtise 

0 4555 0 


1C 

BAJSCCAU, 

17514 1 


CADR 

RADSDALL 

0 2461 0 


1C 

LIGHTCN 

0 5520 0 


1C 

TRFAILOP 

0 6008 1 

RANGBRDl 

1C 

INTPR2T 

50135 0 


SLOAD 

BNN 

03704 1 



R4 

56447 0 



RANGE® 3 

77605 1 


DMP 


16475 0 



CCNVRNGE 

77814 1 

RANGE® 2 

SET 


04467 0 



SOURCFLG 

01257 0 


STORE 

VHPRANGE 

77616 0 


RVO 


77776 1 

RANGEHD3 EXIT 


3 0154 1 


CA 

MPAC 

7 4672 1 


MASK 

POS4AX 

54 154 0 


TS 

MPAC 

0 6006 1 


1C 

IMTPRET 

77605 1 


DMP 


16475 0 



CCNVRNGE 

52015 1 


DAD 

GOTO 

16471 1 



RANTED 14 

56443 1 



RANGE® 2 

0 5532 0 

LIGHTCN 

TC 

TRFAILCN 

0 6008 1 


TC 

INTPRET 

77745 1 


DLQAD 


01225 0 



MARCTIME 

01152 0 


STORE 

VHPTM? 

77650 1 


GOTO 


70523 1 



HENDi 

00045 0 

RANCHI 14 

2DGC 

303431. T B-27 

01217 1 




00017 1 

OCT17 

OCT 

00017 

40200 1 

OC40200 

OCT 

40200 

00045 0 

CCNVRNGE 2DEC 

18.52 B-13 

01217 1 




0 0006 1 

VHFREAD 

EXTEND 


04 007 1 


ROR 

supehbnk 

54 016 1 


TS 

bankrupt 

4 4714 0 


CS 

ZERO 

54 734 0 


TS 

RJPTAGN 

0 0006 1 


EXTEND 


22 012 1 


cxch 

QRAJPT 

3 4704 0 


CAP 

BIT7 


USER«S PAGE NO. 26 B7 S3 

G©®RA1E SHIFT PULSES TO RADR.SBT R.BIT 

READ PRESENT TISE 

WAIT FOR RANGE CCMPLE1E 
BAD DATA GOOD BIT 
TUTOI TRACKER LIGHT OFF 

CCNVERT RANGE TO METERS B-27 
SOURCE OP DATA TO VHF RADAR 

MASK OUT NEG. SI©» BIT 

CCNVERT FROM NM TO METERS AND SCALE B-27 
VAIOE IN PETERS OF SIGN BIT SCALED B-27 
TURN TRACKER LIGHT CN 


16384 X 18-52 SCALED B-27 

VHF INPUT RANGE CCNV.FRCM.01 NM TO M 

MUST SAVE SBANK BECAUSE OF HIJPT 
EXITS VIA TASKOVER BADEND OR GOCDEND 
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10842 

REF 

35 

LAST 

554 

27,2506 

10843 





27,2507 

10844 

REP 

1 



27,2510 

1085 

REF 

1 



27,2511 

1086 

REF 

3 

LAST 

577 

27,2512 

1087 

REF 

25 

LAST 

574 

27,2513 

1088 





27,2514 

1089 

REP 

5 

LAST 

182 

27,2515 

1094 





27,2516 

1095 

REP 

1 



27,2517 

1096 

REF 

30 

LAST 

550 

27,2520 

1097 

REP 

37 

LAST 

530 

27,2521 

1098 

REF 

1 



27,2522 

1099 

REF 

31 

LAST 

578 

27,2523 

1100 

REF 

38 

LAST 

578 

27,2524 

1101 

. REF 

2 

LAST 

227 

27,2525 

1102 





27,2526 

1103 





27,2527 

1104 

REF 

10 

LAST 

573 

27,2530 

1105 

REP 

1 



27,2531 

1106 





27,2532 

1107 

REP 

2 

LAST 

32 

27,2533 

1108 





27,2534 

1109 





27,2535 

1110 





27,2536 

1111 





27,2537 

1112 

REP 

7 

L4ST 

555 

27,2540 

1113 





27,2541 

1114 





27,254 2 

1115 





27,2543 

1116 





27 , 2544 

1117 





27,2545 

1118 

REP 

7 

LAST 

568 

27,2546 

1119 





27,2547 

1120 





27,2550 

1121 

REF 

11 

LAST 

573 

27,2551 

1122 

REP 

5 

LAST 

261 

27,2552 

1123 





27,2553 

1124 

REF 

1 



27 , 2554 

11241 





27,2555 

11242 

REF 

8 

LAST 

578 

27,2556 

11243 





27,2557 

11244 

REF 

1 



27,2560 

1125 





27,2561 

1127 

REF 

7 

LAST 

578 

27,2562 

1128 

REF 

8 

LAST 

578 

27,2563 

1129 

REP 

9 

LAST 

578 

27,2564 

1130 





27,2565 

1131 





27,2566 

1132 

REF 

10 

[AST 

578 

27,2567 


7 0075 

1 


MASK 

SMTE +1 

0 0006 

1 


EJCIETO 


1 2520 

0 


BzP 

BYPASS 

3 0046 

0 


CA 

RIRAD 

55*703 

0 


TS 

IW 

3 4711 

1 


CAP 

BIT2 

0 0006 

1 


EXTEND 


02 033 

0 


RAND 

CHAN33 

0 0006 

1 


EXTEND 


1 2523 

0 


BzP 

VHFGOCD 

3 4711 

1 

BYPASS 

CAP 

WO 

0 4574 

0 


TC 

POSTJUMP 

17464 

1 


CADR 

BADEND 

3 4711 

1 

VHFGOCD 

CAP 

TWO 

0 4574 

0 


TC 

POSTJUMP 

17467 

1 


CADR 

GOODEND 

43174 

1 

SIIFINDX AXT.2 

BCN 

00000 

1 



0 

00707 

1 



VKIUPFLO 

56537 

0 



SHIPM 

43414 

1 


BCN 

R/Q 

04304 

1 



LMOCNFLG 

56535 

1 



+1 

43514 

0 


INCR.2 

RVQ 

77775 

1 


DEC 

-2 

43414 

1 

SUFTA 

BCN 

RVQ 

04303 

0 



CMOCNFLG 

56542 

1 




43514 

0 


INCr, 2 

RVQ 

77775 

1 


DEC 

-2 

68370 

0 

INITIAL* 

AXT,1 

SSP 

00044 

1 



36D 

00051 

0 



SI 

00006 

1 



B 

77775 

1 


VLOAD 


15332 

1 



zercvecs 

06445 

1 

IN I'M 

STORE 

W +3BD.1 

76100 

1 


TIX.l 

AXT, 1 

56552 

0 



INIM 

00044 

1 



36D 

06533 

1 

WITH 

STORE 

W +90D.1 

67300 

0 


TIX, 1 

SLOW 

56556 

1 



INITE 

00001 

0 



0 

02401 

0 


STORE 

W 

02411 

1 


STORE 

W +&D 

02421 

1 


STORE 

W +I6D 

77735 

0 


SLOW 


00002 

0 



1 

02511 

0 


STORE 

W +72D 
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UPDATE FLAG 

SAVE RANGE 

READ DATA GOOD BIT 

branch ip data good bit equals good 

vehicle is csm 

MOON ORB. 

CLEAR 0-35 

CLEAR 54-89 

POSITION VAUJE 

INITIALIZE DIAGONAL W POSITION 

VELOCITY VAUJE 

initialize diagonal w velocity 
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1133 

1134 

1135 
<1138 


P20-P25 


REP 11 LAST 578 27.25T0 02521 0 

REF 12 LAST 579 27,2571 02531 1 

27,2572 77818 0 


STORE V «-80D 
STORE V +880 
RVC 


US&RocS PAGE NO. 28 El S3 
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P113T 

R1138 CRS61.1 4/10/68 

R1139 TO COMPUTE THE PREFERRED TRACKING ATTITUDE CEE THE CSM OUCH ENABLES 
R1140 OPTICS TRACKING CP THE LM AND LM TRACKING CP THE CSM RADAR TRANSPONDER 
R1141 and TO CCMPUIE THE dx-AxIS TRACKING ATTITUDE OF THE CS4 CHICH ©CABLES 

ri 141 1 cars tracking of the lm. 

R11412 TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITLIJS IF THE 
R11413 MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL, R80 IP THE MANEUVER IS 
R11414 GREATER THAN 10 DEGREES OR IF THE RaoFLAG IS SET. 

Rii42 < i> extrapolate lm and csm state vectors to pee sot time using 

R1143 CCNIC EQUATIONS. 

R1144 < 2> CALCULATE LOS FROM CSM TO LM = RL - RC. 

R1145 <3> WE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS’ 

R1146 THE TRACK AXIS <I) IS ALIGNED ALONG THE LOS TO THE LM. THE 

R1147 TRACK AXIS (I) IS DEFINED AS’ 

R1148 

R1149 UNITO I)=UNIT0z IC0S55 dUNITCX 1SIN55 

R1150 - -SC -SC 

R1159 04 ) CCMPUIE DESIRED CDu ANODES, USING VECpOINT. 

R1169 <T> FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS. 

R11T0 IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES, 

R11T1 GROSS MANEUVER IS REQUIRED. SIGNAL R81 (SET MPAC=i) TO 

R11T2 OPERATE kALOIANU AND EXIT CRSei.l. 

RUT 3 IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE. 

R11T4 Os) CALCULATE ORTHOGONAL LOS RATE IN HEP COORDS AS 

R11T5 CNEGATH = UNITLOSCBi) X mi 1 I>/(Bi))(ABg)v(BT)/ABSLOS(B 29 )) 

R11T6 CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS 

R117T APPLIED TO YIELD UNITS OF REVS/SEC. SCALE IS CARRIED AS 

R1178 B+-1 4i 4-7-29 +-4 4-1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS. 

R11T9 THE EXTRA B 4 I RESULTS FRCM RESCALING ABSDV Bg AFTER NORM 

ri 180 to avoid ovflcw on divide. 

R1181 UNITLOS = UNITO RI, - RC) Bi . 

R1182 UNITDY = UNITO VL - VC) Hi. 

R1183 ABSLOS = LENGIH CF LOS, METERS B 29 . 

R1184 ABSDV = LOKTIH CF DV , METERS/CSEC B 7 . 

R1185 ( 9 ) OBTAIN RATE IN SM COORDS. 

R1186 OMEGATHSM = ( REFSMMAT) ( OMEGA TH) . 

R118T (lO)OBTAIN GIMBAL ANGLE INCRFIMENTS FOR 0.1 SECOND. 

R11B8 DIHETOSM = (o.lXCMEGATHSM) 

R1189 (ll)OBTAIN DEUDUX.Y.Z USING SUBR SMCDURES, 
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R1190 

R1191 

R1192 

Rl 193 

R1194 

R1195 

R1196 

R119T 

R1198 

R1199 

R1200 

R1201 

R1202 

R1203 

R1204 

R1205 

R1206 

R120T 

R1208 

R1209 

R1210 
R1211 
R1212 
R1213 
Rl 214 
R1215 
R1216 

R121T CALL 


R1219 
Rl 220 
R1221 
R1222 
R1223 


INPUT CONSISTS OP 

(A) VECTOR OP ANGULAR INCRB®)TS, DTHETAS4, STORED 
IN V(DWBTASM) . 

(B) SIN, COS CDUX.Y.Z FROM SUBR CDUIRIO. 

TRANSFER OUTPUT OP SMCOJRES PRCM V(DCDU) TO VAC14D. 

<12)CALCtfATO ANG LOS RATO IN BCDY(NB) COORDS USING SLER S»ffl. 
CM3GANB — (S'NBHCKEaATHS't) 

SLBR S>NB REOUIRES CMEGA1HS4 IN VCVAC32D) AND ACTUAL CDUS 
<Y,X,Z ORDER) IN V(VAC2oD) WITH Si OP VAC = BASE ADDRESS 
OP CDUS (FIXLOC + 20D>. 

(13)CALCULATO ANG LOS RATO IN CONTROL COORDS AS FOlLOwS 
WBODY = (tODYTCTL) (CMEGANB) UNITS:REVS/Si.U( BO) . 

0 


< 0.5 

MHOYTOTL(Bi) = ( 0 COS!?. 25>Bl 

( 0 SIN<T.25>Bl 


0 > BODY TO 

•SIN<T.25>Bi )=CCNTROL 
COSC? -25)Bl ) Axes 

CONVERSION 

matrix 


1 141RESCALE WBODY TO UNITS OP 450 DEG/SEC BY APPLYING FACTOR 
OP 0.8 TO REVS/SEC. 

<is>address live autopilot registers in basic under inhint). 

TRANSFER DESIRED CDUS, SCALED 180 DEGREES, FRCM T(SAvBDCDu) 
TO V(CDUXD). 

TRANSFER DELCDUS, SCALED 180 DEG, FROM VCVAC14D) 

TO V(DBLCDUX). 

TRANSFER (MEGA CCNTROL, SCALED 450 DBG/SEC,FRCM v(MPAC) 

TO V( WBODY) . 

RELINT, set MPAC-0, EXITCRS61.1 
L CALL CRS61.1 


R1218 RETURNS ALL TO L+l . 


CD S(MPAC)=o. NORMAL EXIT. 3 SETS OF INPUTS FED TO DAP. 
<2> S(MPAC) = i. CALCULATED DESIRED CDUS.SP, SET IN T(CPHI) 
FOR KALCMANU. ABSIACTU - DCDU) EXCEEDS 10 DEGREES. 

(3) S(MPAC) = 2 . GNCS AUTO MODE NOT SELECTED CBIT10=1>. 

(4) S(MPAC) = 3. DAP HOD FIAG (HaOFLAG) NOT EQUAL -1. 





d#(* B ASSEMBLE REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 
I> P20-P25 

R1224 INPUT <1 J TIMS2,TIjei. CCKPUTER CLOCK TING, Dp, CENTISEC B28. 

B122S (2) CT>LK,Y,Z_ PRESENT CDU ANGLES, SP,2S CCKPL KALP-RBVS Bo. 

R1226 <3> MCREPSC-MT), STABLE MZX3ER COORDS Bi . 

R122T OUTPUT NORMAL. EXIT WITH S (KPAC) = o. 
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R1228 

R1229 

R1230 

R1231 

R1232 

R1233 

Rl 234 

R1235 

R1236 


111 CDUXD.CDUYD.CLXJZD, DESIRED CUTER, INNER, MIDDLE CDU ANGLES, 
Dp, IS CCKPL, SCALED 180 DEGREES (HALE-REVS Bo). 

<2> D«XT>UX,t5ElXDUY,DELCDUZ. 0.1 SEC DCU ANGULAR INCREMENTS, 

DP, IS CCKPL, SCALED 180 DEG. 

<3> wBCDY,BBCDYi,V730DY2. LOS ANGULAR RATE IN CONTROL COORDS, 

DP, IS CCKPL, SCALED 450 DEG/SEC. 

SPECIAL. EXIT WITH S(MPAC) = 1 . 

ID CPHI.CTHEW.CPSI. DESIRED CUIER, INNER, MIDDLE CDU ANGLES, 
SP, ZS CCMPL, SCALED 180 DEGREES. 


R123T EXTERNAL SUBROUTINES USED <B)=RASIC 

R1238 <1> CALOOA (5) LOADTIME(B) (9) S>WB 

R1239 f 2> CDUTRIG <6> MATMOVE 

R1240 <3> CSMCCNIC (7) RDCDUS(B) 

R1241 ' <4) LBMCCNIC (g> SMCDURES 

R1242 EHASABIE (1) S(0611 > ,HVWKT CRS61.1 EXIT 

R1243 ( 2) S(06111)E3ANK7 CALCDCDu EXIT. 

R1244 <3> TNSAVEDCDU) Efi SP VECTOR OP CDlDS. 

H124S <4) V( SAvEPOS) Er CSM POS VEC AND D(SAvEPOS)= LENGTH OP LOS. 

R1246 (5 ) V( SAVEVEL) Bt CSM VEL VBC. 

Rl 247 FLAOIOS HOLDFLAG. USED, NOT SET. 

R1248 MIS C f 1» ERASABLE ITC-TPi USED TO TEMP STORE EBANK UNDER INHINT: 

R1Z49 (2) ERASABLE P21TI.M3 USED AS TEMP STORE DURING CRS61.1 

R1250 <3> eras DTHEIASM USED AS TEMP STORE DURING EARLY CRS61.1 

Rl 251 DEBRIS - CURRENT VAC AREA, CRS61.1 ERA SABLES, ITEMPi, P21TIME 


1252 





24,2002 



bank 

24 

1253 

REP 

1 



34,2000 



SETLOC 

P20S4 

1254 





34,3225 



BANK 


1255 

REF 

6 

[AST 

412 

E6,1646 



ERANK= 

CDUXD 

1256 

*1257 

REP 

1 






COUNT* 

SJ/CRS61 

1258 





34,3225 

40220 

0 CRS61.1 

STO 

SETPD 

1259 

REP 

2 

LAST 

123 

34,3226 

03704 

1 


0611 

1260 





34,3227 

00001 

0 


0 

1261 





34,3230 

77634 

0 

RTH 
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1262 

REE 

16 

LAST 

570 

34,3231 

4S505 0 



LOADTII* 

LOAD CLOCK TIMB2, 1 INTO MPAC. 

*12*3 











1264 

REF 

8 

LAST 

451 

34,3232 

38316 0 

STORT 

STCALL P21TIM2 

STORE CLOCK TISE FOR SUBR R 63 

1265 

REP 

1 



34,3233 

71461 1 



R83 

SUBR TO CALC DCDUCTrPRESENT.PASSl) 

1266 





34,3234 

T7751 1 


TLOAD 



1267 

REF 

13 

LAST 

421 

34,3235 

01156 1 



THETAD 

SAVE DCDU(T) FROM CALCDCDU FOR STEP 4 . 

1260 

REF 

2 

LAST 

113 

34,3238 

03373 0 


STORE 

SAVEDCDU 


*1289 











1270 





34,3237 

77776 1 


EXIT 



12701 

REF 

1 



34,3240 

0 3265 0 


TC 

STEP 2 CK *4 

ELIMINATE FORCED RfiO MANEUVER 

1271 

REP 

0 

LAST 

383 

34,3241 

3 4371 0 

AUTCCic 

CAP 

PRIO 30 


1272 





34,3242 

0 0006 1 


EXT©<D 


1273 

REF 

3 

LAST 

539 

34,3243 

06 031 0 


IttOR 

CHAN31 


1274 

REF 

2 

LAST 

554 

34,3244 

T 7707 1 


mask 

FURST3 


1275 





34,3245 

0 0006 1 


EXTEND 

AUTO MODE SELECTED (BITS 15-13=011) 

1276 

REP 

1 



34,3246 

1 3250 1 


BzP 

DAPCk 

YES-CCNTINUE . 

1278 

REF 

1 



34,3247 

0 3254 1 


TC 

ASET 


1279 

REF 

13 

LAST 

562 

34,3250 

4 0075 1 

DAPCk 

CS 

FLAavRDi 

IS STIKFLAG SET CI.E. IS SCMECNE CN »!C> 

1280 

REP 

37 

LAST 

559 

34,3251 

T 4675 0 


MASK 

BIT14 


1281 

REF 

146 

LAST 

565 

34,3252 

10 000 0 


CCS 

A 


1282 

REF 

1 



34,3253 

0 3320 0 


TC 

STEP 3 CK 


1283 

REF 

122 

LAST 

577 

34,3254 

3 4714 1 

ASET 

CAP 

zero 


1284 

REF 

253 

LAST 

577 

34,3255 

54 154 0 


TS 

MPAC 


1285 

REP 

95 

LAST 

577 

34,3258 

0 6006 1 


TC 

INTPRET 

EXIT CRS61.1 

1286 





34,3257 

T7650 1 


GOTO 



1287 

REF 

3 

LAST 

582 

34,3260 

03704 1 



0611 


1208 

. REP 

9 

LAST 

439 

34 , 3261 

4 0101 0 

SWP 2 QC 

CS 

FIAGWHDs 

IS R80FIAG SET 

1289 

REP 

25 

[AST 

506 

34,3262 

T 4707 1 


MASK 

BIT4 


1290 





34,3263 

0 0006 1 


EXTEND 



1291 

REF 

1 



34,3264 

1 345 2 0 


BzP 

MANUEXIS 

YES, DO R60 

12911 

REF 

140 

LAST 

577 

34,3265 

0 4555 0 


TC 

rankcau. 


12912 

REP 

2 

LAST 

195 

34,3266 

57750 1 


CADR 

upactoff 


1292 

REF 

32 

LAST 

578 

34,3267 

3 4711 1 


CAP 

TWO 

SET TEMPORARY , INDEX DTHETASM = 2 

1293 

REP 

2 

LAST 

107 

34,3270 

55*611 1 

CDUICOP 

TS 

DTHEdASM 


1294 

REF 

3 

LAST 

583 

34,3271 

51*611 0 


INDEX 

DTHEWSM 


1295 

REF 

12 

LAST 

563 

34,3272 

3 0032 0 


CA 

C5XJX 

SET A = ACTUAL CDU (ACDU) . 

1296 





34,3273 

0 0006 1 


EXTEND 



1297 

REP 

4 

LAST 

583 

34,3274 

5 1611 0 


INDEX 

DTHETASM 

SET INDEX TO ACCESS DESIRED CDU (DCDu). 

1290 

REF 

14 

LAST 

583 

34,3275 

21*155 0 


MSU 

THETAD 

A = DIFF = ACDU - DCDU. 

1299 

REF 254 

LAST 

583 

34,3276 

54 154 0 


TS 

MPAC 

RETURN TO INTERPRETER FOR 10 DEGREE £K. 

1300 

REP 

96 

LAST 

583 

34,3277 

0 6006 1 


TC 

INTPRET 

(DP APPRCK SP OK FOR ROUGH CHECK) 

1301 





34,3300 

45246 0 


ABS 

DSU 


1302 

REF 

1 



34,3301 

31550 0 



DBGREE 10 

IS (ACDU - DCDU) MORE THAN 10 DEGREES. 

1303 





34,3302 

T7444 0 


BPL 

EXIT 

NO - CK, CONTINUE CHECKING OIHER ANGIES. 

1304 

REF 

1 



34,3303 

71307 0 



STKTEST 

TEST STICK FtAG 

1305 

REF 

5 

LAST 

583 

34,3304 

11«611 1 


CCS 

DTHETASM 

HAVE All, 3 ANGIE DIFFS BEEN CHECKED. 

1306 

REF 

1 



34,3305 

0 3270 1 


TC 

CDUICOP 

NO - DIM OCX (NT, CHECK NEXT ANGIE DIFF. 
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13061 

RRP 

1 



34,3306 

0 3241 

0 


TC 

AUTOCk 


13062 





34,3307 

77776 

1 

' STKTEST 

EXIT 



130625 

REP 

14 

LAST 

503 

34,3310 

4 0075. 

1 


CS 

PLAOfRDl 


13063 

REP 

38 

LAST 

503 

34,3311 

7 4675 

0 


MASK 

BIT14 


130635 

REP 

147 

LAST 

583 

34,3312 

10 000 

0 


CCS 

A 


13064 

REP 

2 

LAST 

583 

34,3313 

0 3452 

1 


TC 

MANUEXIS 

STIKPLAG IS NOT SET (DO R63> 

130645 

HEP 

19 

LAST 

539 

34,3314 

3 4710 

0 


CAP 

BIT3 


13065 





34,3315 

0 0006 

1 


EXTEND 


stikflg is set 

130655 

REP 

21 

LAST 

301 

34,3316 

05 011 

1 


WOR 

DS4LMCUT 

TURN CN UPACnr LIGHT 

f 130605 

REP 

2 

LA-ST 

583 

34,3317 

0 3254 

1 


TC 

ASET 

EXIT AND SET ReiCNTR 

1307 

REP 

97 

CAST 

503 

34,3320 

0 6006 

1 

STCP3CK 

TC 

INTPRET 


1300 





34,3321 

77601 

0 


SETPD 



1309 





34,3322 

00001 

0 



0 

* 

*1310 











NOW HAVE DCDUS stored IN T( SAVEDCDU) . 

A1311 











GO CALC OTHER DAP INPUTS (DELCDU.WBCDY) 

1312 





34,3323 

52375 

1 

CRS61.2 

VLOAD 

vsu 


1313 

REP 

3 

LAST 

110 

34,3324 

03204 

1 



DCDU 


1314 

REF 

2 

LAST 

124 

34,3325 

03715 

1 



SAvEvEL 

DV = VL - VC 

1315 





34,3326 

57456 

1 


UNIT 

VCQMP 

V( MPAC ) = -UN ITDV . VAC36D=ABSDV . 

1316 





34,3327 

74235 

0 


VXV 

vxsc 

( -UNITOVICROSSCUNITLOS) . 

1317 

RBF 

2 

LAST 

123 

34,3330 

03707 

1 



SAVEPOS 


1318 

REP 

1 



34,3331 

31551 

1 



RVCS/RDS ■ 

(UNITLOS BiHUNITOV BiHCONST B4>=CROSS 

1319 





34,3332 

77606 

1 


PUSH 


HOLD CROSS IN PUSHLIST0. SCALED Be. 

1320 





34,3333 

60345 

0 


DLCAD 

NORM 

OBTAIN ABS VALUE OP LOS. 

1321 

REP 

9 

LAST 

583 

34,3334 

02316 

1 



P21TIME 

P21TIME IS TEMP STORE FOR ABSLOS. 

1322 

REP 

21 

LAST 

571 

34,3335 

00047 

1 



XI 


1323 





34,3336 

77606 

1 


PUSH 


NORM ABSLOS(DENOM) AND HOID IN PUSHl . 

A1324 












1325 





34,3337 

60345 

0 


DIXAD 

NORM 


1326 





34,3340 

00045 

0 



360 

NORM ABS VALUE OF DvCNUM) . 

1327 

REP 

8 

LAST 

578 

34,3341 

00051 

0 



Si 


A1328 












1329 





34,3342 

70460 

1 


XSU.l 

SRl 

Xl = X1(N DENQMl-SlCN NUM) . 

1330 

REP 

9 

LAST 

584 

34,3343 

00050 

1 



SI 

SRl TO AVOID OPLOW CN DDV. 

1331 





34,3344 

74271 

0 


DDv 

vxsc 

ABSDV(MPAC) /ABSLOSC PUSHl ) = QUOT. 

1332 





34,3345 

77730 

0 


SXA , 1 


OUOT(MPAC) X CROSS! PUSHO) 

1333 

REP 

2 

LAST 

123 

34,3346 

03705 

0 



06111 

SAVE SCAUS OF RESULT (B-15,1X). 


1338 





34,334? 

76521 

0 

MXV 

VSLl 

1339 

RBF 

15 

LAST 

568 

34,3350 

01736 

1 


RBFSNMA T 

1340 

A1341 





34,3351 

00025 

0 

STORE 

20D 

1342 





34,3352 

77761 

1 

VXSC 


1343 

RKP 

1 



34,3353 

31553 

0 


TENTH 

1344 

REP 

6 

LAST 

583 

34,3354 

03212 

0 

STORE 

dthetasm 

1345 





34,3355 

77624 

1 

CAU, 



Xl= NORM OF OUOT. QUOT SCALE B7-B2g=B-22 
CROSS IS SCALED Be . NEED SLl TO RECOVER 
SRI SO THAT -22+6+l=-15 . MPAC NOW HOIDS 
ORTHO LOS HATE (CMEGA TH, B-15,X1). 
OBTAIN rate in SM COORDS (CMEGTHSM) AND 
ADJUST FOR REFSMMAT SCALE OF Bl . 

CMEGTHSM = VAC20D 

DELTA THETA SM = CMEGTHSM * .1B-3. 


STORE SM INCREM ANGIES FOR SMCDURES. 


1 

I 


I 


5 
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P20-P25 


1346 

REF 

3 

LAST 

535 

1347 





1348 





1349 

REF 

1 



1350 





1351 

REF 

3 

LAST 

584 

1352 

1353 

1354 

1355 
A1356 

REF 

4 

LAST 

584 

1357 





1358 

REF 

4 

LAST 

585 

1359 





1360 





1361 

REF 

2 

LAST 

281 

1362 





1363 

REF 

2 

LAST 

537 

1364 





1365 

REF 

1 



1366 

1367 

1368 
A1369 

REF 

4 

LAST 

585 

1370 

1371 





1372 

REF 

123 

LAST 

583 

1373 

REF 

7 

LAST 

582 

1374 

REP 

4 

LAST 

412 

1375 

REF 

4 

LAST 

412 

1376 

REF 

3 

LAST 

583 

1377 

REF 

8 

LAST 

585 

1378 

REF 

4 

LAST 

585 

1379 

REF 

5 

LAST 

585 

1380 

REP 

5 

LAST 

585 

1381 

A1382 

REF 

5 

LAST 

585 

1383 

1384 

REP 

255 

LAST 

583 

1385' 

REP 

9 

LAST 

411 

' 1386 





1387 

REP 

256 

LAST 

585 

1388 

REF 

4 

LAST 

411 

1389 





1390 

REF 

257 

LAST 

585 

1391 

A1392 

REP 

5 

LAST 

411 

1393 

1394 

REP 

9 

LAST 

537 


34.3356 

34.3357 

34.3360 

34.3361 

34.3362 

34.3363 

34.3364 

34.3365 

34.3366 

34.3367 

34.3370 

34.3371 

34.3372 
'34,3373 

34.3374 

34.3375 

34.3376 

34.3377 

34.3400 

34.3401 

34.3402 

34.3403 

34.3404 

34.3405 

34.3406 

34.3407 

34.3410 

34.3411 

34.3412 

34.3413 

34.3414 

34.3415 

34.3416 

34.3417 

34.3420 

34.3421 

34.3422 

34.3423 

34.3424 

34.3425 

34.3426 

34.3427 
34,3430 


47432 1 
45001 1 
00001 0 
47675 0 
77750 0 
03705 0 
53775 1 
03204 1 
20180 1 
00017 1 

77624 1 
47432 1 
45175 0 
00025 0 
47577 1 
77721 0 
31557 1 
77761 1 
15270 0 
53750 0 
03705 0 
20163 1 

77776 1 CRS61 
0 0004 0 
3 4714 1 
55*647 1 
55*651 0 
55*653 1 
3 1772 1 
55*846 0 
3 1773 0 
55«650 1 
3 1774 1 
55*652 0 

0 0006 1 
3 0155 0 
53*5 26 0 
0 0008 1 
3 0160 0 
53*5 30 1 
0 0006 1 
3 0162 1 
53*532 0 


34.3431 0 0006 1 

34.3432 5 0120 1 

34.3433 3 0017 1 


CDUTRIG 
S8TPD CALL 

0 

34CDURES 

LXA,1 

Q6111 
VLOAD VSL* 

DCDU 
O -17D,1 
STORE 14D 

CALL 

cnuroiG 
VLOAD CALL 
20D 

*9*ffl* 

NKV 

MBDYTCTL 

VXSC 

POINTS 
LXA,1 VSL* 

06111 
0 -14D.1 

2A exit 
INHINT 
CAP ZERO 

TS CDuxD +1 
TS CDUYD +1 
TS CDUZP +1 
CA SAVEDCDil 
TS CDUXD 
CA SAvEDCIXJ +1 

TS CDUYD 
CA SAVEDCIXJ +2 

TS CDUZD 

EXTEND 
DCA MPAC 
DxCH W 60 DY 
EXTEND 

DCA MPAC +3 
DXCH wBCDYl 
extend 

DCA MPAC +5 
DXCH WB£DY2 

Extend 

INDEX PIXLOC 
DCA 14D 


OBTAIN SINjCOSCDUS PGR SMCDUHES. 

84CDURES USES PUSH 

OBTAIN DELCDU IN VIDCDU) . 

RELOAD XI 

RECCVER SCALE. 

(B-i5,Xl) + TENTH (B-3) HALFREVS(Bi) 
EQUALS B-17D.1 TO OBTAIN HALFREVS BO. 
HOLD DELS IN v(VACnD) POR AUTOPILOT. 

COMPUTES SINES AND COSINES FOR 

load vector and call transformation 

VECTOR POR TRG+S4NB INTO MPAC 
OBTAIN AND. RATE REFERRED TO NB (BODY) 

CONVERT RATE! OMEGA) TO CONTROL COORDS. 
MULT. BY 0.8 TO RESCALE REVS TO 450 DEG. 
RECOVER SCALE. 

REIXWD XI TO RECCVER NORMALIZ. 

<B-15,X1> + MBDYTCTL(Bi) = B-14D.1 TO 
OBTAIN REVS SCALED AT 450 DEGREES. 


TRANSFER DESIRED GIWAL ANGLES 
FROM T< SAVEDCDU) TO V(CIX)XD). 


TRANSFER CMEGA CCNTRCL (ANG.1.0S RATE) 
FROM V(MPAC) TO VCWBCDY ) . 


TRANSFER CDU INCREMENTS 
FROM VCVAC14D) TO V(DEl.CTX)X) . 
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1396 

REF 

5 

i LAST 411 

139T 

1398 

REP 

10 

LAST 

1 585 

1399 

1400 

REF 

4 

LAST 

411 

1401 

1402 

REP 

11 

LAST 

586 

1403 

1404 

REF 

4 

LAST 

411 

1405 

REP 

70 

LAST 

575 

1406 

REF 

5 

LAST 

554 

1407 

1408 

REP 

124 

LAST 

585 

1409 

REP 

3 

LAST 

584 

1410 

REF 

98 

LAST 

584 

1411 

1412 

REF 

6 

LAST 

585 

1413 

1414 

1415 

REF 

REF 

8 

1 

LAST 

412 

1416 

A141T 

REP 

4 

LAST 

583 

1410 

1419 

REF 

5 

LAST 

585 

1420 

REF 

10 

LAST 

584 

1421 

REF 

28 

LAST 

576 

1422 

REF 

4 

LAST 

555 

1423 

1424 

REF 

18 

LAST 

555 

1425 

REF 

3 

LAST 

584 

1426 

REF 

14 

LAST 

555 

1427 

REF 

3 

LAST 

584 

1428 

1429 

REP 

11 

LAST 

586 

1430 

REF 

29 

LAST 

586 

1431 

REF 

3 

LAST 

545 

1432 


1433 

REF 

15 

LAST 

586 

1434 

REF 

5 

LAST 

585 

1435 

1436 

REF 

19 

LAST 

586 

1437 

REF 

4 

LAST 

586 

1438 

1439 

REF 

5 

LAST. 

586 

1440 

REF 

16 

LAST 

584 

1441 

1442 

REF 

3 

LAST 

387 

1443 

1444 

REF 

12 

LAST 

586 

1445 

REF 

4 

I-AST 

32 




34,3434 

53*578 0 

DXCH 

DELCDUX 

34,3435 

0 0008 1 

Extend 

34,3436 

5 0120 1 

INDEX 

PIXLOC 

34,3437 

3 0021 1 

DCA 

16D 

34,3440 

53*800 1 

DxCH 

DELCDUY 

34,3441 

0 0006 1 

EXTEND 

34,3442 

5 0120 1 

INDEX 

PIXLOC 

34,3443 

3 0023 0 

DCA 

ibd 

34,3444 

53«602 0 

DXCH 

DELCDuz 

34,3445 

4 4712 0 

CS 

CNE 

34,3446 

55*332 0 

TS 

HCLDFLAG 

34,3447 

0 0003 1 

RELINT 


34,3450 

3 4714 1 

CAP 

ZERO 

34,3451 

0 3254 1 

TO 

AffiT 

34,3452 

0 6006 1 

MANUEXIS to 

INTPRET 

34,3453 

77751 1 

manuexit TLCUD 


34,3454 

03373 0 


S4V0DCDU 

34 ,3455 

01156 1 

STORE 

CPHT 

34,3456 

521 35 1 

SLCMD 

GOTO 

34,3457 

31801 1 


LOCNE 

34,3460 

03704 1 


0611 


34.3461 

34.3462 

34.3463 

34.3464 

34.3465 

34.3466 

34.3467 

34.3470 

34.3471 

34.3472 

34.3473 

34.3474 

34.3475 

34.3476 

34.3477 

34.3500 

34.3501 

34.3502 

34.3503 

34.3504 

34.3505 

34.3506 

34.3507 

34.3510 

34.3511 

34.3512 

34.3513 

34.3514 


71220 1 
03705 0 
02316 1 
34041 0 
27045 0 
77775 1 
00001 0 
27707 1 
00007 0 
03715 1 
77745 1 
02316 1 
34041 0 
27057 0 
77775 1 
00007 0 
27204 1 
00001 0 
53451 1 
03707 1 
03707 1 
76521 0 
01736 1 
1735 7 0 
00045 0 
02316 1 
77775 1 
15330 0 


R63 STD DLCHD 

Q6111 

P21TIMB 
STCALL TOECi 

CS4CCNIC 

HOLDATT VIXMD 

RATT 

STCVL SAVEPOS 
VATT 

STORE SAVHVEL 
CALCLEM DLOID 


P21TIME 
TDECi 
U=MC(N IC 


VATT 

DCDu 

RATT 

UNIT 

SAvEPOS 

SAvEPOS 

vsli 

REFS444T 

POINTVS4 

38D 

P21TIME 


20*35 OCT. 28,1968 PANDORA .080 PAGE 

OSBB.S PAGE NO. 35 Efl S3 > 


HO* MP variables loaded, set hqldflag 

TO -1. 


NCBMAL return (MPAC = 0) 


04TER PRCM STEP 2 . ACDU-DCDU EXCEEDS 
10 deg. STORE DCDU(T) IN CPHI.CTHETA 
CPSI FOR kalcmanu. 

SPECIAL RETURN (MPAC+o = 1 

octal 00001 


SUBR to CALC DCDUS(T) 


HCLD EXTRAPOLATED CSM POSITION AND 
VELOCITY 


EXTRAPOLATE LEM STATE VECTOR TO SAME 
TINE AS CSM USING LPMCCNIC. 


STORE VATT IN DCDu TEMPORARILY 
LOS = Rl, RC 


SAVE INITOOS FOR CRS61.2 RATE CAIH. 
CONVERT TO STAB it; MEMBER 


HOD ABS VAL OP LOS (VAC 36 D) 

IN D(P2iTIME) FOR CRS6I.2 RATE CALC. 




IN I TX 
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1446 

REP 

11 

LAST 

389 

34,3515 

37351 

1 


STCALL SCAXIS 


144T 

RES' 

3 

LAST 

383 

34,3516 

56128 

1 



VECPOINT 


1448 

REP 

T 

LAST 

277 

34,3517 

01334 

1 


STORE 

CPHIX 


1449 





34,3520 

77775 

1 


VUOVD 



1450 

HEP 

1 



34,3521 

31542 

0 



PRPUNIT 


1451 

ter 

12 

LAST 

587 

34,3522 

37351 

1 


SICALL SCAXIS 


1452 

ter 

4 

LAST 

587 

34,3523 

56126 

1 



VECPOINT 


1453 

REP 

5T 

LAST 

277 

34,3524 

03723 

1 


STORE 

PRAXIS 


1454 





34,3525 

77614 

1 


BGFP 



1455 

RHP 

4 

LAST 

552 

34,3528 

02745 

0 



prptokat 


1458 

HEP 

1 



34,3527 

71533 

1 



CRSTORl 


145T 

REP 

15 

LAST 

583 

34,3530 

01155 

1 

CRSTOR 

STORE 

thbtad 


1458 





34,3531 

77650 

1 


GOTO 



1459 

HEP 

• 

LAST 

586 

34,3532 

03705 

0 



Q6111 


1460 





34,3533 

77775 

1 

CRSTORl 

VLOAD 



1461 

REP 

5 

LAST 

586 

34,3534 

15330 

0 



UNITX 


1462 

HEP 

13 

LAST 

587 

34,3535 

03351 

0 


STORE 

SCAXIS 


1463 





34,3536 

52151 

0 


TLQAD 

GOTO 


1484 

RHP 

6 

LAST 

587 

34,3537 

01334 

1 



CPHIX 


1465 

RHP 

1 



34,3540 

71530 

1 



CRSTOR 


1466 





34,3541 

15066 

0 

PRPUNIT 

ZDBC 

.40957602 


1466 





34,3542 

17826 

0 





146T 





34,3543 

00000 

1 


2PBC 

0-0 


1467 





34,3544 

00000 

1 





1468 





34,3545 

11132 

1 


2D0C 

.28678822 


1468 





34,3546 

27477 

0 





1469 





34,3547 

01616 

1 

DEGREE 10 DEC 

.05556 


1470 





34,3550 

37851 

1 

RVCS/RDS 2 DBC 

15-915494 

B-4 

1470 





34,3551 

16721 

1 





1471 





34,3552 

31463 

1 

TENTH 

2JWC 

.1 B+3 


1471 





34,3553 

06315 

0 





1474 





34,3554 

20000 

0 

MATlBi 

2DBC 

1.0 B-i 


1474 





34,3555 

00000 

1 





1475 





34,3556 

20000 

0 

frTOYTCTl, 2DEC 

.5 


1475 





34,3557 

00000 

1 





1476 





34,3580 

00000 

1 


zoec 

0 


1476 





34,3581 

00000 

1 





1477 





34,3562 

00000 

1 


2DBC 

0 


1477 





34,3563 

00000 

1 





1478 





34,3564 

00000 

1 


■gxc 

0 


1478 





34,3565 

00000 

1 





/ 1479 





34,3568 

17676 

0 


2DEC 

.99200495 

B-l 

1479 





34,3567 

20113 

0 





1460 





34,3570 

75766 

1 


ZDBC 

-.12619897 B-l 

1480 





34.35T1 

45544 

0 





1481 





34,3572 

00000 

1 


ZDEC 

0 


1*481 





34,3573 

00000 

1 





1482 





34,3574 

02011 

0 


2dec 

.12619897 

B-l 

1482 





34,3575 

32233 

1 





1483 





34,3576 

176T6 

0 


2DEC 

.99200495 

B-l 

1483 





34,3577 

20113 

0 






track axis unit vector 

POR tX-AXlS TRACKING ATTITUDE 
STORE ANGLES POR N96 DISPLAY 


STORE ANGLES POR N#5 DISPLAY 


STORE ANGLES FOR Nl8 DISPLAY 


55 DEG TRACK AXIS UNIT VECTOR 
FOR USE WITH VECpOINT 

10 DEG IN REVS S1EP2 

100/2PI REV-CSEC /RAD-SEC. 

.1 B-3 (TO SCALE ANG.RATE TO .1 INREMS) 

7 .25 DEG NEGATIVE 
X-AXIS ROTATION MATRIX 
CONVERTS BODY TO CIL 
AXES. SAME AS OUADROT 
COST. 25 Bi BUT SCALED Bi 

-SINT. 25 Bi 

SINT. 25 Bi 
COST. 25 Bl 


m 




assemble revision 249 of aoc program colossus by rasa 


2021111-041 


P20-P25 


bpp , 34,3600 00001 0 LOCNE OCT 00001 

1485 REP 3 LAST 384 7707 BURSTS EOIALS ”,14,15 


20’35 OCT. 28,1988 PANDORA .080 PAGE 588 
USERxS PACE NO. 37 Eg S3 

TO SET MPAC - 00001 FOR SPECIAL EXIT 

CONSTANT FOR AirrOCK (OCT 70000). 
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P20-P25 


20*35 OCT. 28,1968 PANDORA .080 PACE 589 
USBEUS PAGE NO. 38 Be S3 


H460 S22.1 ORBITAL NAVIGATION ROUTINE 

S148T MOD 1 


FUNCTIONAL description 

1. UPDATE CSM STATE VECTOR 

2. UPDATE LANDMARK POSITION 

3. CONVERT W MATRIX PROM 9 TO 6 DMNSICNS 


SKWOUTINES CALLED 

INTSTALL, INTEGRV.OBIUM, SBIRE,R-TO-TR,RP-TO-R,BvBCTORS, INCORP1 , INCORP2 
LALOPORV, S22P2410 , LAT-LCNG.RCWDOT 


ERASABLE INITIALIZATION 
W=9X9 MATRIX 

0RBwFLAG=0 for invalid W MATRIX, =1 POR VALID W MATRIX 
astronaut ENTRY OP KNOiVN.L.OPP 
gNN= NLMIFR OP MAROS DECIMAL INTEGER B-14 
hepsmmat= TRANSFORMATION matrix 

MARKSTAT= ADDRESS OP START OP MARK DATA (MARK DATA CP EACH MARK IS 

STORED AS FOLLOWS, TIMB,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE 
PRECISION, ALL OTHERS ARE IN SINGLE PH3CISTCN 
CSM STATE VECTOR 


OUTPUT 

UPDATED CSM STATE VECTOR 
UPDATED [ANDMARK POSITKN 
NEW 6 DIMENSIONAL W MATRIX 


DEBRIS 

PUSI LIST, CSMPOS,ALPHAv,BRADtM,UM,RCLP,USTAR, VARIANCE, XT89 ,BvECTOR, 8KK, 
S22LOC, SVMRKOAT TABLE, 22SUBSCL,LANDMARC,CxOPF, S22C,LAT,LCNG, ALT, 
THMPORl , S22TOFF, SZ2lOFF,DSPTEMl , S22ECRM.S22TPRIM 


1513 





13,2176 



BANK 

13 

1514 

REF 

.1 



30,2000 



SBILOC P20S6 

1515 





30,2255 



BANK 


1516 

REF 

18 

LAST 

559 

E5.1T51 



EBANK= 

LANDMARK 

1517 

REF 

1 






COUNT 

35/LUORB 

1518 





30,2255 

66220 

1 S22.1 

STO 

SSP 

1519 

REP 

2 

LAST 

123 

30,2256 

03703 

0 


S22RTNEX 

1520 

REP 

10 

LAST 

584 

30,2257 

00051 

0 

Dec 

Si 

1521 





30,2260 

00006 

1 

6 

1522 





30,2261 

66331 

0 

SSP 

SSP 

1523 

PEP 

2 

LAST 

95 

30,2262 

02747 

1 

DEC 

8KK 

1524 





30,2263 

00001 

0 

1 

1525 

REF 

2 

LAST 

95 

30,2264 

02751 

0 


522(4X1 

1526 

REF 

5 

LAST 

175 

30,2265 

03537 

0 

ECADR 

SVMRKOAT 


SET 1=1 ITEM 8KK IS I 


SET MARK DATA ADDRESS INTO S22IOC 
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152T 





30,2266 

78144 1 


LXC, 2 

axt.i 


1528 

HER 

31 

LAST 

561 

30,2287 

01330 0 



M4RCSTAT 


1529 





30,2270 

00044 1 


oec 

36 


1530 





30,2271 

77773 1 

822.111 

VLCMD* 

MOVE MARC DATA (5 SETS) FROM ADM. IN 

1531 





30,2272 

77776 1 



0,2 

MARKSTAT TO SVMRCDAT TABLE TO AVOID LOSS 

1532 

REP 

6 

LAST 

589 

30,2273 

07604 1 


STORE 

SVMRKDAT +36D, 

1 IP RESTART OCCURS 

1533 





30,2274 

60114 0 


INCH,; 

2 TlX, 1 


1534 





30,2275 

77771 0 


DEC 

-6 


1535 

REP 

1 



30,2278 

60271 0 



822.111 


1536 





30,2277 

77414 0 


ffiT 

EXIT 


15381 

REP 

2 

LAST 

555 

30,2300 

01464 0 



P22NKPU5 

DOWNLINKED SVMRCDAT HOLDS PRESENT MARKS 

1537 

REP 

141 

LAST 

583 

30,2301 

0 4555 0 


TC 

bankcall 

RELEASE VAC AREA WHERE MARC DATA WAS 

1538 

REP 

5 

LAST 

444 

30,2302 

16063 0 


CADR 

MCRELEAS 


1539 

HEP 

9 

LAST 

556 

30,2303 

0 5261 1 


TC 

2PHSCHNO 


1540 





30,2304 

00004 0 


OCT 

00004 


1541 





30,2305 

05022 1 


OCT 

05022 


15411 





30,2306 

13000 0 


OCT 

13000 


1542 

REP 

99 

LAST 

586 

30,2307 

0 6008 1 


TC 

INTPRET 


1543 





30,2310 

43170 0 


AXT.l 

BCFP 


1544 





30,2311 

00000 1 



0D 


1545 

REP 

8 

LAST 

578 

30,2312 

04343 1 



CMOCNFLG 

=0 EARTH, =1 MOCN 

1546 

REP 

1 



30,2313 

60316 0 



S22SHIPT 


1547 





30,2314 

77710 1 


INCR.i 



1548 





30,2315 

77775 1 


DEC 

-2 


1549 





30,2316 

40330 0 

S22SHIPT SXA.l 

SETPD 


1550 

REP 

2 

LAST 

123 

30,2317 

03673 0 



S22EOFN 

SET =0 EARTH, r-2 MOCN FOR SHIFTING 

1551 





30,2320 

00001 0 



0D 


1554 





30,2321 

77624 1 

FIG2EXIT CALL 



1555 

REP 

15 

LAST 

576 

30,2322 

27371 1 



INTSTALL 


1556 





30,2323 

77624 1 


CALL 



1557 

REP 

1 



30,2324 

61326 1 



S22FLGS 


R1558 




PIAYCHART D=o 

THEN DIM 0 FTAG=0 

D6OR9FLG NOT TESTED 


R1559 




FLOWCHART D=6 

THEN DIMoFlAGrl 

DeORgFLGrO 


R1560 




FLOWCHART Dr 9 

THEN DIMoFTAO=i 

D60RgFLG=l 


1561 





30,2325 

43014 0 


BCFP 

CLRGO 


1562 

REP 

4 

LAST 

570 

30,2326 

01751 0 



ORBWFL4G 


1563 

REP 

1 



30,2327 

60332 0 



SBTWW5D 

branch to set wo-ws.orbwfiag.d 

1564 

REP 

2 

LAST 

576 

30,2330 

01635 0 



DeORgFUJ 

flowchart Dr6 PATH 

1565 

REP 

1 



30,2331 

60357 0 



SBTVAND1 


1566 





30,2332 

77614 1 

SBTVW5D 

CLEAR 



1567 

REP 

6 

LAST 

576 

30,2333 

01676 1 



DIMoPLAG 

FLOWCHART D=o path 

1568 





30,2334 

66370 0 


AXT.l 

SSP 


1569 





30,2335 

00154 1 


DEC 

108 


1570 

REP 

11 

LAST 

509 

30,2336 

00051 0 



Si 


1571 





30,2337 

00006 1 


DEC 

6 


1572 





30,2340 

77214 0 


ClEAR 

VIX»D 


1573 

REP 

7 

LAST 

571 

30,2341 

02678 1 



RfMDWFI.G 

GSOP CHANGE 8/18/67 

1574 

REF 

12 

LAST 

570 

30,2342 

15332 1 



ZERCVECS 


1575 

REP 

13 

[AST 

579 

30,2343 

06555 1 

CI.EARWW5 

STORE 

W +108D, 1 





I 
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15T0 





30,2344 

67300 

0 

TIX.l 

SLOAD 

15TT 

RBP 

1 



30,2345 

60343 

0 


CLEARWW5 

15T0 

REF 

1 



30,2348 

02005 

0 


WORBPOS 

1500 

REP 

14 

LAST 

599 

30,2347 

02401 

0 

STORE 

w 

1501 

REP 

15 

LAST 

591 

30,2350 

02411 

1 

STORE 

w +bd 

1582 

REF 

16 

LAST 

591 

30,2351 

02421 

1 

STORE 

W +16D 

1503 





30,2352 

77735 

0 

SjOAD 


1504 

REP 

1 



30,2353 

02006 

0 


WCRBVEL 

1505 

REP 

17 

LAST 

591 

30,2354 

02511 

0 

STORE 

«r +720 

1500 

REP 

18 

LAST 

591 

30,2355 

02521 

0 

STORE 

W +80D 

150T 

REP 

19 

LAST 

591 

30,2356 

02531 

1 

STORE 

W +880 

1508 





30,2357 

77614 

1 

SETVANDI CLEAR 


1589 

REP 

2 

LAST 

5T2 

30,2360 

02666 

0 


D6«NFI13 

1590 





30,2381 

77624 

1 

S22NXTIN CALL 


1591 

REP 

i 



30,2382 

61322 

0 


GBTIP 

1592 

REP 

30 

LAST 

588 

30,2363 

34041 

0 

STCALL 

TDECi 

1593 

REF 

6 

LAST 

573 

30,2364 

27113 

1 


INTEGRV 

1594 





30,2385 

77624 

1 

CALL 


1595 

REF 

1 



30,2388 

61273 

0 


S22CALHC 

1590 





30,2387 

66150 

0 

LXA,1 

SXA.l 

1597 ' 

REP 

3 

LAST 

589 

30,2370 

02750 

1 


S22LOC 

1598 

REF 

4 

LAST 

569 

30,2371 

01242 

1 


MARKDAW 

1599 





30,2372 

77624 

1 

CALL 


1600 

REF 

2 

LAST 

571 

30,2373 

47110 

1 

S2GBTLM 

GEIUM 

1001 

REP 

5 

LAST 

571 

30,2374 

01235 

1 

STORE 

IM 

1604 





30,2375 

41535 

1 

DMPINTEG SLOAD 

PUSI 

1605 

REF 

3 

LAST 

589 

30,2376 

02747 

1 


SKK 

1606 





30,2377 

50535 

1 

SLQAD 

SR3 

1607 

REF 

3 

LAST 

558 

30,2400 

02746 

0 


CXOPF 

1608 





30,2401 

50442 

0 

SR3 

SR3 

1609 





30,2402 

77625 

0 

DSU 


1610 





30,2403 

43030 

0 

BHIZ 

BCN 

1611 

REF 

1 



30,2404 

60720 

1 


S220FE = I 

1012 

REP 

3 

LAST 

591 

30,2405 

02706 

1 


WENRO 

1613 

REF 

1 



30,2406 

60726 

1 


5220=9 

10131 





30,2407 

77624 

1 

CALL 


16132 

REP 

12 

LAST 

574 

30,2410 

56741 

0 


GRPzPC 

1614 





30,2411 

77614 

1 

SET 


1615 

REP 

5 

LAST 

590 

30,2412 

01471 

1 


QRfWLAG 

1616 





30,2413 

43014 

a 

SET 

SET 

1017 

REF 

4 

LAST 

591 

30,2414 

02466 

l 


D«NFLG 

1610 

REF 

1 



30,2415 

01062 

l 


Z2DSPFLG 

1619 





30,2416 

43014 

0 

S?T 

BCN 

1620 

REP 

■4 

LAST 

555 

30.241T 

00462 

1 


ERADFLAG 

1621 

REF 

6 

LAST 

559 

30,2420 

03307 

0 


KNOWNFLG 

1622 

REF 

1 



30,2421 

61070 

1 


S22&CX22 

1623 





30,2422 

53575 

0 

VLQAD 

UNIT 

1624 

REP 

5 

LAST 

574 

30,2423 

01207 

0 


CSMPOS 

1625 

REF 

4 

LAST 

558 

30,2424 

02152 

0 

STORE 

ALPHAV 

1626 





30,2425 

43014 

0 

CLEAR 

BOPF 


20*35 OCT. 28,1968 PANDORA .080 PAGE 591 
UffiR.3 PAGE HO. 40 E5 S3 

SET DIAGONALS CP WO 

SET DIAGONALS CP W4 

0=6X6W, 1=9X9W 

CALC. RC B-29 OR B-27 (CSMPOS) 

SETUP ADOR. OP MARK DAW FOR GBTUM SUBR. 
CCMPUIE UM 

TEST 0FP=I 

CxOFF SCALED B-5 , MUST MCVE TO B-14 
■ BEFORE SUBT. 

BRANCH HERE IF OFF- 1 
0=6XBW, 1=9X9W 


=0 CN FIRST PASS THRU HERE FOR D=0,OR6 
=1 TO DISPLAY DR,DV CN FIRST PASS 

=1 TO CCMPUTE FISCHER RADIUS 

UNIT ALSO PUTS ABvAL(RC) IN 36D 
ALPHAV +4=SINl, FOR SETRE 





assemble revision 249 op aoc program colossus by 


P20-P25 


NASA 2021111-041 20’35 OCT. 28,1968 PANDORA .080 PACE 592 


HEP 5 LAST 556 
REP 9 LAST 590 
REP 1 


REP 6 LAST 592 


HEP 1 


REP 1 


REP 10 LAST 592 


HEP 1 


REP 8 LAST 591 
REP 1 

REP 13 LAST 590 


REP 5 LAST 558 


REP 7 LAST" 592 

REP i 

HEP 2 LAST 592 


REP 1 


REP 12 LAST 590 


REP 1 


REP 2 [AST 592 


REP 2 LAST 592 


REP 1 


HEP 20 LAST 591 
REP 3 LAST 592 


REP 21 [AST 592 


REP 1 




30.2426 

30.2427 

30.2430 

30.2431 

30.2432 

30.2433 

30.2434 

30.2435 

30.2436 

30.2437 

30 . 2440 

30.2441 

30.2442 

30.2443 

30.2444 

30.2445 

30.2446 

30 . 2447 

30.2450 

30.2451 

30.2452 

30.2453 

30.2454 

30.2455 

30.2456 

30.2457 

30.2460 

30.2461 

30.2462 

30.2463 

30.2464 

30.2465 

30.2466 

30.2467 

30.2470 

30.2471 

30.2472 

30.2473 

30.2474 

30.2475 
30,2478 
30,2477 

30.2500 

30.2501 

30.2502 

30.2503 

30.2504 

30.2505 

30.2506 

30.2507 


01663 0 
04343 1 
60433 0 
77614 1 
01463 1 
77624 1 
26533 0 
77624 1 
61240 0 
70414 1 
04343 1 
60442 0 
02635 0 
72441 0 
01235 1 
24037 0 
15332 1 
41401 1 
00001 0 
65206 0 
15330 0 
77702 1 

00005 1 
00011 1 
24015 0 
01235 1 
24023 0 
02635 0 
77624 1 
81303 0 
66370 0 
00022 1 
00051 0 

00006 1 
70573 1 
03524 1 
77741 0 
00037 0 
45445 0 
7 0 25 3 I 
76100 1 
60470 1 
00044 1 
64373 1 
02445 0 
035 0 2 0 
77732 1 
06621 I 
71300 1 
60501 0 


llnaplag 

CMOCNFLO 

S22C=I 


UJNA FLAG 


S22P2410 

VSR2 

CMOCNFLO 


+1 

S22HL 

SLl 

UM 

S22D 

ZERCVECS 

PUSH 

OD 

POOL 

HIDPHALP 


32231X13 

SSP 


S22NXTU 


DEC 

VLOAD* 


W +1440,1 

DLOAD 

S22NXTWJ 


USERnS PAGE NO. 41 E 5 S3 


ERADM= RO leiERS B -29 BOTH EARTH/MOCN 


COMPUTE HL PRIM EQUATION 2.4.10 
STORED IN X789,MPAC B_27,B-29 
SCALE RL B -29 POR BOTH EARTH/MOCN 


D= LM.RL B-29 


SET 0-1 bD = I BACKWARDS 

PO 18 

B-3 


B-29 

UWXRL T) B-30 STORED IN S22LMRL THRU 
S221JMRL +17D 


18 

Si 

6 

VSR2 

S221JMRL +18D,1 


UJMKRL T) B-32 


S220 

STADR 

S22LMRL +18D,i 

AXT, 1 

S22NX1U 

36 

MXV 

W +360 , 1 
S22LMRI, 


D B-29 

subtract FROM I B -3 
U MATRIX B-3 
PD 0 AP1ER Tlx 


Si STIU, 6 FROM ABOVE 


W(Ul8>= UWfl) B-19 






20*35 OCT. 28,1960 PANDORA .080 PAGE 593 
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L 

P20- 

P25 









USEfWS PACE NO. 42 E5 S3 

16T5 

RBP 

1 



30,2510 

00041 

1 



S22IWO 

B-28.B-30 

16T6 





30,2511 

60414 

0 


BCPP 

SB2 

MAKE FHO B-30 

16TT 

REP 

11 

LAST 

592 

30,2512 

04343 

1 



CMOCNFLfl 


16TB 





30,2513 

60514 

1 



♦1 


16T9 





30,2514 

57101 

0 


NORM 

XAD.2 


1680 

REP 

t 

LAST 

572 

30,2515 

00050 

1 



X2 


1681 

REP 

10 

LAST 

593 

30,2516 

00047 

1 



X2 


1682 





30,2517 

41316 

0 


DSQ 

DMP 


1683 

REP 

1 



30,2520 

21650 

1 



sctvar 

B+10 

1684 





30,2521 

77742 

0 


SRl 


ACCOUNTS FOR 1/2 IN NEXT F0Rt4JLA 

1685 

HEP 

2 

LAST 

593 

30,2522 

00041 

1 


STORE 

S22FHO 

1/2CRIO SQHVARSCT) 

1686 





30,2523 

77770 

1 


AXT.l 



1687 





30,2524 

00022 

1 


DEC 

18 

Si STILL 8 PRCM ABOVE 

1688 





30,2525 

64373 

1 

S22NXXA 

VLOAD* MXV 


1689 

HEP 

4 

LAST 

592 

30,2526 

03524 

1 



S22UMHL +180,1 

B-3 

1690 

REP 

5 

LAST 

593 

30,2527 

035 02 

0 



S22CMRL 

B-3 

1691 





30,2530 

53761 

1 


vxsc 

VSR* 


1692 

REP 

3 

LAST 

593 

30,2531 

00041 

1 



S22WO 


1693 





30,2532 

57212 

1 



0 -120,2 

WITH VARRP SCALED B-28 

1694 

REP 

1 



30,2533 

05301 

0 


STOffi 

S22UUT +180,1 

1/2<RH0 SQHVARSCTHUXU T) 

1695 





30,2534 

77300 

1 


TIX.1 

VLOAD 


1696 

REP 

1 



30,2535 

60525 

0 



S22NXXA 


169T 

REP 

8 

LAST 

592 

30,2536 

01235 

1 



IM 


1698 

REP 

2 

LAST 

592 

30,2537 

34023 

1 


STCALL 

S223X1 

UM ALSO IN MPAC FOR S2231X13 SUBR. 

1699 

REP 

2 

LAST 

592 

30,2540 

61303 

0 



32231X13 

(UMMUM T) B-2 IN S22 UMHL,PitD 

1T00 





30,2541 

50545 

0 


DLOAD 

SR3 


1T01 

REP 

2 

LAST 

87 

30,2542 

02241 

1 



EHADM 

RO B— 29 

1702 





30,2543 

63471 

0 


DDV 

DSQ 


1T03 

REP 

3 

LAST 

592 

30,2544 

00037 

0 



S22D 

B-29 

1704 





30,2545 

77605 

1 


DHP 



1705 

REP 

1 



30,2546 

02010 

1 



RPVAR 

***** >KIEHS so 

1706 

REP 

4 

LAST 

593 

30,2547 

00041 

1 


STORE 

S22RHO 

TEMP (VARRPHRO/D) 

1707 





30,2550 

77770 

1 


AXT,1 



1708 





30,2551 

00022 

1 


DEC 

18 

Si STILL 6 PRCM ABOVE 

1709 





30,2552 

T4373 

0 

S22NXXB 

VLOAD* 

VXSC 


1T10 

REP 

6 

LAST 

593 

30,2553 

03524 

1 



S22UMRL +180,1 

(UM) CUM T) B_2 

1711 

REP 

5 

LAST 

593 

30,2554 

00041 

1 



S22HHO 


1712 





30,2555 

77653 

1 


VAD* 



1713 

REP 

2 

LAST 

593' 

30,2556 

01301 

1 



S 22 l)trr +180,1 


1714 

REP 

3 

LAST 

593 

30,2557 

05301 

0 


STORE 

S22UUT +180,1 

SM4IL E MATRIX 

1715 





30,2560 

T7775 

1 


VLCttD 



1716 

REP 

14 

LAST 

592 

30,2561 

15332 

1 



ZEROvECS 


1T1T 

REP 

22 

LAST 

592 

30,2562 

06643 

0 


STORE 

W +1620,1 

CLEAR W8 

1718 





30,2563 

40100 

1 


TIX,1 

BOV 


1719 

REP 

1 



30,2564 

60552 

0 



S22NXXB 


1720 





30,2565 

80566 

1 



+1 


1T21 





30,2566 

50145 

1 


DLOAD 

FLN 


1722 

REP 

4 

LAST 

593 

30,2567 

01277 

1 



SZ2UUT +160 

E5 

1723 

REP 

1 



30,2570 

60607 

0 



S22W76X 


1724 





30,2571 

53166 

0 


SORT 

BzE 







I 




assemble revision 2*9 op aoc program colossus by 
P20-P25 


NASA 2021111-041 20’3S OCT. 28,1988 PANDORA .080 PAGE 594 

USERotS PACE NO. 43 B5 S3 


1725 

REP 

2 

LAST 

593 

1726 

REP 

23 

LAST 

593 

1727 

HEP 

5 

LAST 

593 

1728 





1729 

REP 

24 

LAST 

594 

1730 

REP 

1 



1731 

REP 

25 

LAST 

594 

1732 





1733 

REP 

6 

LAST 

594 

1734 

REP 

28 

LAST 

594 

1735 





1736 

REP 

3 

LAST 

594 

1737 

REP 

27 

LAST 

594 

1738 





1739 

1740 

REP 

28 

LAST 

594 

1741 

REP 

7 

LAST 

594 

1742 

REP 

1 



1743 





1744 

REP 

2 

LAST 

594 

1745 

REP 

29 

LAST 

594 

1746 

REP 

30 

LAST 

594 

1747 





1748 

REP 

31 

LAST 

594 

1749 

1750 

REP 

8 

LAST 

594 

1751 

REP 

32 

LAST 

594 

1752 

REP 

3 

LAST 

594 

1753 

REP 

33 

LAST 

594 

1754 





1755 

HEP 

34 

LAST 

594 

1758 





1757 

REP 

35 

LAST 

594 

1758 





1759 





1760 

REP 

9 

LAST 

594 

1761 

REP 

1 



1762 





1763 

REP 

36 

LAST 

594 

1764 





1765 

REP 

37 

LAST 

594 

1766 

REP 

38 

LAST 

594 

1767 

REP 

39 

LAST 

594 


1768 

1769 

1770 

1771 

1772 

1773 

1774 


REP 40 
REP 41 

REP 42 

REP 2 


LAST 
I A ST 


LAST 

LAST 


594 

594 


594 

591 


30,2572 

60607 0 

S22W76X 


30,2573 

16625 1 

STODL W *1480 

674= SQ ROOT B5 

30,2574 

01275 0 

S22UUT +14D 

B4 

30,2575 

40071 0 

DDV BOV 


30,2576 

02825 1 

W *1480 


30,2577 

60601 0 

S22W72X 


30,2600 

02623 1 

STORE W 4-1460 

W73= B4/W74 

30,2601 

56345 0 

S22W72X DLOAD DDV 


30,2802 

01273 0 

S22UUT +120 

B3 

30,2803 

02825 1 

W +1480 


30,2604 

77800 1 

BOV 


30,2605 

60607 0 

S22WT6X 


30,2608 

02621 0 

STORE W +1440 

W72= B4/W74 

30,2607 

63545 0 

S22W76X DLOAD D8Q 


30,2610 

02823 1 

W +148D 

*73 

30,2611 

50021 1 

BDSU BM4 


30,2612 

0126 7 0 

S22UUT +80 

E2 

30,2813 

60827 1 

S22W78X 


30,2614 

53186 0 

SORT BzE 


30,2615 

80827 1 

S22WT8X 


30,2616 

18631 1 

STCDL VI +1520 

W76= SO ROOT (E2-W73 SQ) 

30,2817 

02821 0 

W +144D 

W72 

30.2620 

44205 0 

DMP BDSU 


30,2621 

02623 1 

*r *1460 

W73 

30,2622 

01285 1 

S22UUT +60 

El 

30,2623 

40071 0 

DDV BOV 


30,2824 

02831 1 

W +1520 

W76 

30,2625 

60627 1 

S22W78X 


30,2626 

02827 0 

STORE W +1500 

W75= (B1-W72W73) /W76 

30,2627 

83545 0 

S22W78X DtXMD DSQ 


30,2630 

02827 0 

W +1500 


30,2631 

63525 0 

POOL DSQ 


30,2632 

02621 0 

W +1440 

W72 

30,2633 

77815 0 

DAD 


30,2634 

50021 1 

BDSU BW 


30,2635 

01257 0 

S22UJT 

Eo 

30,2838 

60641 1 

S22SCLW 


30,2637 

77788 0 

SORT 


30,2640 

02635 0 

STORE W +15BD 

W78= SO RT(Eo-V¥72 SQ-W75 

30,2641 

74575 0 

S22SCIM VLQ4D VSRl 

9CAI.E W8 METERS B-19 

30,2642 

02621 0 

W +1440 


30,2643 

26621 0 

STOVL W +144D 


30,2644 

02627 0 

W +1500 


30,2645 

77762 1 

VSRl 


30 , 2646 

28827 0 

STCVL W +150D 


30,2647 

02635 0 

W +1560 


30,2650 

77762 1 

VSRl 


30,2651 

02835 0 

STORE W +1560 


30,2652 

77824 1 

S22S4VET CALL 


30,2653 

61322 0 

QPMTF 
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20*35 OCT. 28,1988 PANDORA .080 PACE 595 


L F20-P2S 


1TTS 

BEP 

2 

LAST 

123 

30,2654 

ITT 6 





30,2655 

1TTT 

REF 

31 

LAST 

5T8 

30,2656 

ITT* 





30,2657 

1TT9 

REP 

4 

LAST 

591 

30,2660 

IT 80 

DBF 

4 

LAST 

557 

30,2661 

1T*1 





30,2662 

1T82 

HEP 

1 



30,2663 

1T83 

REF 

5 

LAST 

595 

30,2664 

1T84 

REF 

T1 

LAST 

586 

30,2865 

IT 85 

REF 

6 

LAST 

575 

30,2666 

1T88 

REP 

4 

LAST 

591 

30,2667 

1TBT 

REF 

11 

LAST 

560 

30,2670 

ITS* 

REF 

T 

LAST 

595 

30,2671 

1T89 

IBP 

32 

LAST 

595 

30,2672 

1T90 





30,2673 

1T91 

REF 

8 

LAST 

595 

30.26T4 

1T92 

REF 

6 

LAST 

595 

30,2675 

1T93 

REF 

R 

LAST 

595 

30,2676 

1T94 

REF 

5 

LAST 

595 

30,2677 

1T95 

REF 100 

LAST 

590 

30,2700 

1T9S 





30,2701 

1T9T 

REF 

16 

LAST 

590 

30,2702 

1T98 





30,2703 

1T99 

REF 

2 

LAST 

590 

30,2704 

1800 





30,2705 

1801 

REF 

5 

LAST 

591 

30,2706 

1802 

REF 

1 



30,2707 

1803 

FBF 

T 

LAST 

590 

30,2710 

1804 





30,2711 

1805 

REF 

• 

LAST 

591 

30,2712 

1808 

REF 

2 

LAST 

595 

30,2713 

180T 

REF 

8 

LAST 

595 

30,2714 

1808 





30,2715 

1809 

REF 

3 

LAST 

590 

30,2716 

1810 

REF 

3 

LAST 

595 

30,2717 

1811 





30,2720 

1812 

PEP 

3 

LAST 

594 

30,2721 

1813 

REF 

t 

LAST 

558 

30,2722 

1814 

REF 

f 

LAST 

593 

30,2723 

1815 

REF 

1 



30,2724 

1816 

REF 

1 



30,2725 

1B1T 





30,2726 

1818 

REF 

1 



30,2727 

1819 





30,2730 

1820 

REF 

3 

LAST 

595 

30,2731 

1821 





30,2732 

1822 





30,2733 

1823 

REF 

3 

LAST 

590 

30,2734 

1824 

REF 

1 



30,2735 


03872 

1 


STORE 

S22TPRIM 

77776 

1 

822 I=N 

EXIT 


0 5301 

0 


1C 

fHASCHNO 

04022 

0 


OCT 

04022 

4 1746 

1 


CS 

8KK 

6 1747 

1 


AD 

8NN 

0 0008 

1 


EXTEND 


6 3126 

1 


BzMP 

S22P244X 

3 1746 

0 


CA 

8KK 

6 4712 

1 


AD 

QXE 

55*300 

1 


TS 

TEMPORl 

3 1750 

1 


CA 

S22U3C 

6 4716 

0 


AD 

SEVEN 

55*301 

0 


TS 

TBMPORl +1 

0 5301 

0 


1C 

FHASCHNG 

04022 

0 


OCT 

04022 

3 1300 

0 


CA 

7EMPOR1 

55*746 

1 


TS 

BKK 

3 1301 

1 


CA 

TBMPORl +1 

55*750 

0 


TS 

S22LOC 

0 6006 

1 


1C 

INTPBET 

77624 

1 


CALL 


27371 

1 

S2INTS1 


INTSWLL 

77624 

1 


CALL 


61326 

1 



S22FLGS 

43014 

0 


BOX 

CLEAR 

02706 

1 



DMRXFljG 

60361 

0 



SZ2NXT1N 

01676 

1 



DIMOFLAG 

43014 

0 


BOPF 

SET 

01751 

0 



OHflWFLAG 

6 0 361 

0 



S22NXTIN 

01476 

0 



DIMOFLAG 

77614 

1 


CLRGO 


01635 

0 



DeORgFLG 

60361 

0 



S22NXTIN 

77624 

1 

S220FF=I 

CALL 


61322 

0 



GETIP 

27670 

0 


STOVL 

S22T0FF 

01235 

1 



UM 

35215 

1 


SICALL 

S22U0FF 

60655 

1 



S22l=N 

77775 

1 

S22D=9 

VUMD 


01701 

0 



XT 89 

14001 

0 


STCDL 

OD 

03672 

1 



S22TPRIM 

00007 

0 


STORE 

6D 

45135 

1 


SLO\D 

CALL 

03674 

1 



S2ZEORM 

55366 

1 

S2RTRP 


R-TO-RP 


US8R«S PAGE NO. 44 B5 S3 

SAVE PRESENT TINE FOR PIOS 
TEST I=N 

EXIT TO FIGURE 2.4-4 
1 = 1+1 

ADO T TO LOC TO GET ADOR. OF NEXT MARK 

FOR ALL INTEGRATIONS OIHER THAN FIRST 

RETURN ALWAYS EXCEPT OFFSET POINT MARK 1 

OFFSET POINT MARK l,NO W INTEGRATION 

OFFSET POINT MARK 1 , INTEGRATE W 6X6 

TIME SUB OFF 

U SE OFF 
TEST I=N 
0=9 PATH 

CALL PIOS TWICE TO TRANSFORM HI. TO TIME 
T< am F) FRCM TIME T PRIME 


0=F-ARTH ,NCN-ZERO=MOCN 
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1825 

1828 

182T 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 
183T 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 
1848 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 
185T 

1858 

1859 

1860 
1881 
1862 

1863 

1864 

1865 

1866 
186T 
1868 

1869 

1870 

1871 

1872 

1873 

1874 


R®' 4 LAST 595 


REP 4 LAST 595 

REP 2 LAST 558 

REP 2 LAST 595 


7 LAST 573 


6 LAST 591 

7 LAST 573 


10 LAST 595 


5 LAST 571 


6 LAST 595 
11 LAST 578 


2 CAST 593 
1 

8 LAST 572 
8 LAST 596 


22 LAST 584 


9 LAST 596 


23 LAST 596 
5 LAST 596 


6 LAST 596 


REP 258 LAST 585 
REP 10 LAST 596 
REF 2 LAST 571 


REF 14 LAST 574 
REF 15 LAST 596 
REP 2 LAST 572 


REP 13 LAST 591 


REF 2 LAST 591 

REF 1 

REP 3 LAST 596 




30.2736 

30.2737 

30.2740 

30.2741 

30.2742 

30.2743 

30.2744 

30.2745 

30.2746 

30.2747 

30.2750 

30.2751 

30.2752 

30.2753 

30.2754 

30.2755 

30.2756 

30.2757 

30.2760 

30.2761 

30.2762 

30.2763 

30.2764 
30,2785 

30.2766 

30.2767 

30.2770 

30.2771 

30.2772 

30.2773 

30.2774 

30.2775 

30.2776 

30.2777 

30.3000 

30.3001 

30.3002 

30.3003 

30.3004 

30.3005 

30.3006 

30.3007 

30.3010 

30.3011 

30.3012 

30.3013 

30.3014 

30.3015 

30.3016 

30.3017 


45008 0 
61322 0 
00007 0 
45135 1 
03874 1 
55341 1 
01701 0 
40014 0 
02464 0 
60750 0 
77651 0 
01207 0 
03531 0 
47256 0 
01235 1 
40056 0 
60652 0 
01245 0 
43014 0 
02468 1 
00467 1 
43345 1 
21650 1 
21652 0 
27526 0 
03531 O 
60246 1 
00047 1 
41316 0 
03526 0 
56070 0 
00046 0 
03673 0 
53670 0 
03673 0 
20601 1 
77751 1 
00155 0 
37526 1 
47047 1 
57575 1 
035 0 2 0 
37516 1 
75250 1 
77624 1 
56741 0 
43014 0 
01342 0 
61047 0 
01262 0 


S2RPTR 

S22BOX32 STORE 
S3T 


CALL 

CETIP 

6D 

CALL, 

S22EORM 

RP-TO-R 

X789 

BOV 

INCORPLG 

♦1 


STORE 

32280X12 SET 


CS-IPOS 

RCLP 

vxv 

UM 

BCV 

S22SAVET 

USMR 

SET 

DM&IFUJ 

VEHUPFLG 

DAD 

9CTVAR 

ihjvarr 

VARIANCE 

RCLP 

NORM 

XI 

DMP 

VARIANCE 

XAD.i 

XI 

S22EORM 

SR* 

S22EORM 

0,1 


S2BVTRS 


MPAC 

VARIANCE 

bvectors 

VCCMP 

BVECTOR 

bvector + 12D 

INCORP1 


GRP2PC 
BOPP CIEAR 

22DSPFIX5 

S22R0X42 

220SPFL/5 


USERbS PAGE NO. 45 E5 S3 


R-TO-RP LEAVES PUSHLOC AT 0 


PLAG=i 

CLEAR OVERFLOW 


RCL=RL-RC 

USWR=UNIT(UNIT(RCL)XUM) 


COMPUTATION OVERFLOW, SAVE TP 


=1 FOR 9X9 W 
=1 PCR CSM 


B-29 OR B-27 




DOUBLE NOHM SHIFT SINCE RCLP WAS SQUARED 
IXUBLB EARTH OR MOCN SHIPT, SAJ* REASON 


SCAIK VARIANCE B-40 FOR BOTH EARTH, MOCN 
CHANGE MODE TO TRIPLE 


CALC Bo,Bj , DEI, TAG, NEW USMR 


= 1 DISPIAY DELTA R,V =0 00 NOT 
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L 

P20- 

P25 




18741 





30,3020 

18742 

REP 

14 

LAST 

596 

30,3021 

1675 





30,3022 

1876 

REP 

7 

LAST 

572 

30,3023 

1877 





30,3024 

1878 

REP 

7 

LAST 

596 

30,3025 

1879 





30,3026 

1880 

REP 

9 

LAST 

575 

30,3027 

1881 

REF 

8 

LAST 

597 

30,3030 

1882 





30,3031 

1883 





30,3032 

1884 

REP 

10 

LAST 

597 

30,3033 

1885 





30,3034 

1886 

REF 

1 



30,3035 

1887 

REF 

142 

LAST 

590 

30,3036 

1888 

REF 

9 

LAST 

557 

30,3037 

1889 

REF 

26 

LAST 

561 

30,3040 

1890 





30,3041 

1891 

REP 

1 



30,3042 

1892 

REF 

20 

LAST 

584 

30,3043 

1893 

REF 

11 

LAST 

561 

30,3044 

1894 

REF 

76 

LAST 

575 

30,3045 

1895 

REF 

101 

LAST 

595 

30,3046 

1896 





30,3047 

■ 1897 

REP 

2 

LAST 

573 

30,3050 

1898' 





30,3051 

1899 

REP 

2 

LAST 

591 

30,3052 

1902 





30,3053 

1903 

REP 

8 

LAST 

596 

30,3054 

1904 

REF 

2 

LAST 

596 

30,3055 

1905 

REF 

33 

LAST 

595 

30,3056 

1906 





30,3057 

1907 

REF 

102 

LAST 

597 

30,3080 

1908 





30,3061 

1909 

REF 

9 

LAST 

597 • 

30,3062 

1910 

REF 

3 

LAST 

596 

30,3063 

1911 





30,3064 

1912 

REF 

7 

LAST 

596 

30,3065 

1913 

REP 

9 

LAST 

596 

30,3068 

1914 

REF 

1 



30,3067 

1915 





30,3070 

1916 





30,3071 

1917 

REF 

13 

LAST 

592 

30,3072 

1918 





30,3073 

1919 





30,3074 

1920 

REP 

15 

LAST 

593 

30 , 3075 

1921 

REP 

43 

LAST 

594 

30,3076 

1922 





30 , 3077 

1923 

REF 

1 



30,3100 

1924 

REP 

1 



30,3101 


77624 

1 

CALL 


58741 

0 


ORP2PC 

51575 

1 

VLOAD 

ABVAL 

01257 

0 


DELTAX 

53750 

0 

LXA , 1 

SR* 

03673 

0 


S22EORM 

20601 

1 


0,1 

27502 

0 

STCVL 

N 49 DISP 

01265 

1 


DELTAX +6 

53646 

0 

ABVAL 

SR* 

20601- 

1 


0,1 

03504 

0 

STORE 

N 49 DISP +2 

77776 

1 

Exit 


3 3655 

1 

cap 

VO 6 N 49 CB 

0 4555 

0 

TC 

BANKCALL 

20763 

1 

cadr 

GOFL4SHR 

0 4106 

1 

1C 

GOTOPOCH 

0 3046 

0 

TC 

+5 

0 3230 

0 

1C 

S22EXEX 

3 4710 

0 

CAP 

BIT3 

0 5415 

1 

TC 

blanket 

0 5112 

0 

TC 

ENDOFJOB 

0 6008 

1 

TC 

intpret 

77624 

1 

S22BCN42 CALL 


75462 

0 


INCORP2 

77624 

1 

CALL 


61273 

0 


S 22 CALHC 

77414 

0 

DMPINCP2 BOFF 

EXIT 

02744 

1 


INCORFLG 

60652 

0 


S22SAVET 

0 5301 

0 

TC 

PHASCHNG 

04022 

0 

OCT 

04022 

0 6006 

1 

TC 

INTPRET 

77214 

0 

clear 

VLOAD 

02664 

1 


INCORFLG 

01701 

0 


X789 

77651 

0 

vsu 


01207 

0 


CSMPOS 

375 31 

1 

SICALL RCLP 

60760 

0 


S22BCX12 

66370 

0 

S22BCX22 AXT, 1 

SSP 

00066 

1 

DEC 

54 

00051 

0 


Si 

00006 

1 

DEC 

6 

77775 

1 

VLOAD 


15332 

1 


ZERCVECS 

06643 

0 

CLRW6T8 STORE 

W +162D,1 

6T300 

0 

TIX, 1 

Sl-OAD 

61076 

1 


CL, RW6T8 

02007 

1 


S22WSUBL 


USER.S PACE NO. 46 E5 S3 

DELTA R 

SCALE DELTA R ALWAYS («1ERS B-29 

DELTA V 

DELTA V=tt?TBRS/CSBC B-T ALWAYS 


V34E TERMINATE 
INCORPORATE CHANGES 
V32E RECYCLE 


CSMPOS=RC B-29 OR B-27 

SAVE TP AND TEST I=N 

PLAG=o 

RCL=RL-RC 

CLEAR W6 ,W7 ,W8 < 27 ELEMENTS 54 REGS) 
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1926 

REP 

44 

LAST 

597 

192T 

REP 

45 

LAST 

598 

1928 

• REP 

46 

LAST 

598 

1929 





1930 

REP 

t 

LAST 

592 

1931 

REP 

12 

LAST 

593 

1932 

REP 

1 



1933 





1934 

REP 

6 

LAST 

598 

1935 





1936 

REP 

5 

LAST 

596 

1937 





1938 

RBP 

2 

LAST 

528 

1939 





1940 

RES' 

5 

LAST 

591 

1941 

RBP 

13 

LAST 

598 

1942 

REP 

1 



1943 





1944 





1945 

REP 

1 



1946 

RBP 

103 

LAST 

597 

1947 





1948 

RBP 

4 

LAST 

591 

1949 

RS' 

1 



1950 





1951 

REP 

34 

LAST 

597 

1952 





1953 

HEP 104 

LAST 

598 

1954 





1955 

REP 

10 

LAST 

595 

1956 

RBP 

31 

LAST 

591 

1957 

HEP 

4 

LAST 

523 

1958 





1959 

REP 

5 

LAST 

503 

1960 

REP 

8 

LAST 

597 

1981 

HEP 

2 

LAST 

595 

1962 

REP 

11 

LAST 

596 

1963 

REP 

4 

LAST 

597 

1964 





1965 

REP 

14 

LAST 

598 

1966 





1967 





1968 

HEP 

3 

LAST 

593 

1969 

REP 

2 

LAST 

592 

1970 





1971 

HEP 

1 



1972 





1973 

RBP 

6 

[AST : 

598 




30,3102 

02621 0 


STORE V >1440 

30,3103 

02631 1 


STORE V >1520 

30,3104 

02841 0 


STORE w >1600 

30,3105 

43014 0 


CLEAR BOFF 

30,3108 

01663 0 



LUNAFLAG 

30,3107 

04343 1 



CWOCNFLG 

30,3110 

61113 0 



S22BX22A 

30,3111 

77614 1 


SET 


30,3112 

01463 1 



LLNAFLAG 

30,3113 

77624 1 

S22BX22A CALL 


30,3114 

61322 0 



CETTE 

30,3115 

77624 1 


CALL 


30,3116 

28373 1 



LALOTORV 

30,3117 

43175 0 


VL04D 

B0FP 

30,3120 

02152 0 



ALFHAV 

30,3121 

04343 1 



gmocnflg 

30,3122 

61124 1 



S22BX22B 

30,3123 

77752 1 


VSL2 


30,3124 

77650 1 

S22BX22B GOTO 


30,3125 

60744 0 



S22BCK32 

30,3126 

0 6006 1 

S22P244X TC 

INTPRBT 

30,3127 

46135 1 

S22P244 

SLOAD 

BHIZ 

30,3130 

02746 0 



CXOPP 

30,3131 

61160 1 



S22BOX44 

30,3132 

77776 1 


EXIT 


30,3133 

0 5301 0 


TC 

FHASCIWG 

30,3134 

04022 0 


OCT 

04022 

30,3135 

0 6006 1 


TC 

INTPRBT 

30,3138 

77745 1 


DLOAD 


30,3137 

03870 0 



S22T0PP 

30,3140 

34041 0 


SICALL TDECi 

30,3141 

27022 1 



CSMPRBC 

30,3142 

77775 1 


VLOAD 


30,3143 

00017 1 



HA Tn 

30,3144 

25207 0 


STCVL 

CS4POS 

30,3145 

01215 0 



S22UOFP 

30,3146 

25 235 1 


STOt/L 

UM 

30,3147 

01701 0 



X789 

30,3150 

43046 1 


ABVAL 

BOFP 

30,3151 

04343 1 



CMOCNFLG 

30,3152 

61154 0 



>2 

30,3153 

77702 1 


SH2 


30,3154 

3624 1 0 


STCALL ERADM 

30,3155 

61240 0 



S22F2410 

30,3156 

77650 1 


GOTO 


30,3157 

61163 1 



S22BX44A 

30,3160 

77624 1 

SZ2BCK44 

CALL 


30,3161 

61322 0 



CETTE 

30,3162 

03670 0 


STORE 

S22TOPF 

30,3163 

77214 0 S22RX44A 

Cl .EAR 

VI AMD 


ffitt LONAFLAO, TIt« FOR LALOTORV 
BRADFLAG,LAT,LCNG,ALT SET PREVIOUSLY 
CHECK SCALING OP ITSMS.ALT INPUT AND 
RL OUTPUT IN ALfHAv BOIH B-29 


COMPUTE RL 


RL B-29 


SCALE RL B-27 FOR MOCW 


PIG 2.4-4 TEST OPP-Q 




CALC RC AT OFFSET TIME 


RC MEIERS B-29 OR B-27 


SCALE MOO? Ro B-29 POR S22F2410 SUflR 


PRESENT TIME FOR LAT-LCNG SETUP 
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- 



19T6 

RKP 

9 

LAST 

598 

30,3164 

01863 

0 



UNAPIAG 

19TT 

REP 

5 

LAST 

598 

30,3165 

01701 

0 



XT89 

1978 





30,3166 

43014 

0 


BOPP 

SET 

1979 

REP 

IS 

LAST 

598 

30,3187 

04343 

1 



CMOCNFLG 

1980 

REP 

1 



30,3170 

81173 

0 



822BX44B 

1981 

HEP 

10 

LAST 

599 

30,3171 

01463 

1 



UNAPLAG 

1982 





30,3172 

77742 

0 


VSR2 


1983 

REP 

6 

LAST 

598 

30,3173 

16152 

0 

S22BX44B 

STCDL 

ALFHAV 

1984 

REP 

12 

LAST 

598 

30,3174 

03670 

0 



S22T0FP 

1985 





30,3175 

77624 

1 


CALL 


1986 

. REP 

3 

LAST 

558 

30,3176 

26322 

0 



LAT-LCNG 

198*9 





30,3177 

77624 

1 


CALL 


1990 

REP 

1 



30,3200 

61336 

0 



LIASfC 

1991 





30,3201 

77776 

1 


EXIT 


1992 

REP 

2 

LAST 

558 

30,3202 

3 3858 

1 


CAP 

V06N89B 

1993 

REP 

143 

LAST 

597 

30,3203 

0 4555 

0 


TC 

RANKCALL 

1994 

REP 

19 

LAST 

558 

30,3204 

206 24 

0 


CADR 

QCFLASH 

1995 

REP 

1 



30,3205 

0 3233 

0 


TC 

S22GTP 

1996 





30,3206 

0 3210 

1 


TC 

♦2 

1997 

REP 

1 



30,3207 

0 3224 

0 


TC 

S22.981X 

1998 

REP 

105 

LAST 

598 

30,3210 

0 6006 

1 


TC 

INTPHET 

1999 





30,3211 

70740 

0 


LXC.l 

DLOAD* 

2000 

REP 

8 

LAST 

595 

30,3212 

02750 

1 



S22LOC 

2001 





30,3213 

00001 

0 



0,1 

2002 





30,3214 

24007 

0 


STOVL 

rd 

2003 

REP 

6 

LAST 

599 

30,3215 

01701 

0 



XT89 

2004 





30,3216 

00001 

0 


STORE 

60 

2005 





30,3217 

45135 

1 


SLCWD 

CALL 

2006 

REP 

6 

LAST 

592 

30,3220 

15330 

0 



HIDPHALF 

200T 

REP 

2 

LAST 

595 

30,3221 

55366 

1 



R-TO-RP 

2008 

REP 

6 

LAST 

558 

30,3222 

02026 

1 


STORE 

RLS 

2009 





30,3223 

77776 

1 


EXIT 


2010 

REP 

106 

LAST 

599 

30,3224 

0 6006 

1 

S22.9B1X TC 

INTPHET 

2011 





30,3225 

77624 

1 


CALL 


2012 

REP 

1 



30,3226 

81354 

1 



9DWTOBCW 

20121 





30,3227 

77776 

1 


EXIT 


20122 

REP 

107 

LAST 

599 

30,3230 

0 6006 

1 

S22BXEX 

TC 

INTPRET 

2013 





30,3231 

77650 

1 


GOTO 


2014 

REP 

3 

LAST 

589 

30,3232 

03703 

0 



S22RTNEX 

20141 

REP 

108 

LAST 

599 

30,3233 

0 6006 

1 

S22GTP 

TC 

INTPRET 

20142 





30,3234 

77624 

1 


CALL 


20143 

REP 

2 

LAST 

599 

30,3235 

61354 

1 



9D*T0 bD« 

20144 





30,3236 

77778 

1 


EXIT 


20145 

REP 

27 

LAST 

597 

30,3237 

0 4106 

1 


TC 

GOTOPOCH 

2015 





30,3240 

77201 

1 

S22F2410 

SETPD 

VIXHD 

2016 





30,3241 

00001 

0 



0D 

2017 

REP 

9 

IAST 

598 

30,3242 

01207 

0 



CSMPOS 

2018 





30,3243 

50256 

0 


VNIT 

DOT 

2019 

REP 

12 

LAST 

598 

30 , 3244 

01235 

1 



LW 




20 ’35 OCT. 28,1988 PANDORA .080 PAGE 599 
USER.S PAGE NO. 48 R5 S3 


SET = 1 POR LAT-LCNO 
SCALE RL MOCN B-29 FOR LAT-LCNG 
RL SCALED B-29 POR LAT-LCNO 
EITHER PRESENT OR OFFSET TIME 


**++ ALT OUTPUT ALWAYS B-29 
DISPLAY LAT/LCNG/ALT 


V34E TERMINATE 

PROCE05 SAVE LANDING SITE COORD 
RECYCLE POINT A IN OSOP 


6-7Dr LANDING SITE TIME POR R-TO-RP 
0-50= IANDING SITE VEC POR R-TO-RP 


ANY NCN-ZBRO FOR MOCN 
CCNVERT RLS TO MOCN-PIXED COORD 
LANDINO SITE VECTOR 


GO TO POINT A IN CHAPTER 5 
WITHOrr CCNVERTING W 


CCNVERT W BEFORE 1C GOTOPOCH 


CCMPVJTE FORMJIA 2.4.10 


RC B-29 FARTH.B-27 MOCN 

IN IT ALSO SETS 3BD=ARVAL( RC) VISED REl.CW 


I 



Jll 
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<020 





30,3245 

57552 1 

SLl 

DC04P 

G90P CHANCE S/18/8T 

<021 





30,3240' 

77806 I 

puaf 


PO JP O0=COSA=-(UM.RC)/ABVAURC1 b-1 

2022 





30,3247 

44316 0 

090 

HDSU 


2023 

Rpy 

1 



30,3250 

21654 0 


DBC 1 B 2 


2024 





30,3251 

43125 0 

POOL 

BOPP 

PO 40 20 = 1 -COSA SQrSINA SO B-2 

2025 

REP 

4’ 

LAST 

598 

30,3252 

02241 1 


BRADI+ 

Ro AL*AYS B-29 FRCM SETRE 

2020 

REP 

10 

LAST 

599 

30,3253: 

04343 1 


OTOJPLO 


2027 





30,3254 

61256 1 


♦2 


2028 





39,3255 

77713 0 

SL 2 


SCALE R 0 B -27 POR MOON 

2029 





30,3250 

5636 2 0 

SRlR 

nrv 

(R 0 /RC) B-l 

2030 





30,3257 

00045 0 


360 


2031 





30,3200 

45316 1 

090 

OSU 

PD 20 CR0/BC1 90 - SIMA 90 B -2 

2032 





30,3201 

44366 1 

SORT 

Roau 

PO 0 D C0S»-90RTf(R0/RC)SO-SINA SO) B-l 

2033 





30,3202 

77605 1 

CMP 


CMP RESULT B-28 MOCN,B-30 EARTH 

2034 





30,3203 

00045 0 


360 

VX»I RESULT B-29 M0CH, B -31 EARTH 

2035 

REP 

0 

LAST 

593’ 

30,3264 

00041 1 

STORE 

S22i«0 

WO POR « INIT. OP UNKNOIW U0C B-28.B-30 

2030 





30,3205 

77761 1 

VXSC 


m 

2037 

REP 

13 

LAST 

599 

30,3266 

01235 1 


LH 


2038 





30,3267 

53352 0 

VS. 2 

VAO 

SCALE B-27 MOCN.B-29 EARTH A.'f) ADO R C 

2039 

REE 

10 ' 

LAST 

599 

30,3270 

01207 0 


C34POS 


2040 

REP 

V. 

LAST’ 

599 

30,3271. 

01701 0 

STORE 

X789 


2041 





30,3272 

77616 0 

RVO 


B- 2 T PQR EARTH OR B-29 POR *004 

2042 





30,3273 

77350 1 

S 22 CALaC LXA.i 

VTYYU3 

CQ4PU1E RC B -29 OR B-27 

2043 

REP 

0 

LAST 

597 

30,3274 

03673 0 


S22EOR4 

=0 POR EARTH , -2 POR MOON 

2044 

REP 

2 

LAST 

574 

30,3275 

01573 1 


06LWCSM 


2045 





30,3276 

53257 1 

VSR* 

VAO 


2040 





30,3277 

20610 1 


T,1 


2047 

REP 

2 

LAST 

574 

30‘, 3300 

01607 1 


HCVCS4 


2048 

REP 

11 

LAST 

600 

30,3301 

01207 0 

STORE 

CSMPOS 


2049 





30,3302 

77616 0 

RVO 


MI-T 3X1 BY 1 X 3 , STORE RESULTING 3X3 IN 

2050 

REP 

1 



30,3303 

00031 0 

32231X13 STORE 

S221X3 

2051 





30,3304 

77131 1 

SSP 

AXT, 2 

S221MW- S 22 UMRL +jtD 

2052 

HEP 

7 

LAST 

528 

30,3305 

00052 0 


S 2 


2053 





30,3306 

00002 0 

DEC 

2 


2054 





30,3307 

00008 1 

DEC 

0 


2055 





30,3310 

77770 1 

AXT ,1 



2050 





30,3311 

00022 1 

DEC 

18 


2057 





30,3312 

73775 0 

S2231NXT VU»D 

VXSC* 


2058 

REP 

2 

LAST 

000 

30,3313 

00031 0 


3221X3 


2059 

REP 

3 

LAST 

593 

30,3314 

77746 1 


S2Z3X1 +6,2 


2000 

REP 

7 

LAST 

593 

30,3315 

07524 0 

STORE 

S221JMRL +18D.1 


2001 





30,3316 

61110 0 

INCR,i 

TJX, 2 


2002 





30,3317 

77771 0 

DEC 

-6 


2003 

REP 

1 



30,3320 

61312 0 


S2231NXT 


2004 





30,3321 

77616 0 

RVO 



2085 





30,3322 

70740 0 

GETTF LXC ,1 

DLCWD* 

SET MPAC- TP 

2000 

REP 

7 

LAST 

599 

30,3323 

02750 1 


S22 i£C 


2007 





30 , 3324 

00001 0 


0,1 


2008 





30,3325 

77618 0 

(VO 
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P20-P2S 




1069 





30,3326 

43014 

0 

S22PLGS 

SET 

set 

WTO 

REF 

t 

LAST 

595 

30,3327 

01476 

0 



DIMoFLAO 

WT1 

REP 

4 

LAST 

595 

30,3330 

01475 

0 



DeORgPLG 

WT2 





30,3331 

43014 

0 


SET 

ffiT 

20 T 3 

RBF 

9 

LAST 

576 

30,3332 

01474 

1 



VINTFLAG 

WT4 

REF 

2 

LAST 

5T6 

30,3333 

01472 

1 



8TATEFLG 

20TS 





30,3334 

43414 

1 


clear 

RVO 

WT6 

REF 

9 

LAST 

576 

30,3335 

01673 

1 



INTYPFLG 

*2077 

S^ROUTINE TO MODIFY ALT AND 

STORE LAT 

TO LATt5 

IN LANDLAT TO LANDLAT+5 

R2O70 

PRIOR TO DISPLAY. 







WTO 





30,3336 

77745 

1 

LLASHD 

DLCAD 


2080 

REF 

4 

LAST 

274 

30,3337 

OHIO 

0 



ALT 

W81 

RBF 

3 

LAST 

277 

30,3340 

16362 

1 


STCDL 

LANDALT 

2082 

RBF 

5 

LAST 

276 

30,3341 

01106 

1 



LCNG 

2083 





30,3342 

77742 

0 


SRI 


W84 

RBF 

3 

LAST 

277 

30,3343 

02360 

0 


STORE 

LANDLOK3 

2085 





30,3344 

77616 

0 


RVQ 


R2086 

SLBROUTINE TO MODIFY 

LANDALT AND STORE 

lANDALT TO IANDALT*5 IN LAT TO 

R208T 

LAT»S 

AFTER LStC DATA 

LOVDED BY ASTRONAUT. 



was 





30,3345 

77745 

1 

UASHDA 

DLOAD 


2089 

RBF 

4 

LAST 

601 

30,3346 

02362 

1 



LANDALT 

WOO 

RBF 

5 

LAST 

601 

30,3347 

15110 

0 


STODL 

ALT 

2091 

REF 

4 

LAST 

601 

30,3350 

02360 

0 



LANDLCNG 

W92 





30,3351 

77752 

1 


SLl 


2093 

REF 

6 

LAST 

601 

30,3352 

01106 

1 


STORE 

LONG 

2094 





30,3353 

77616 

0 


F/Q 


W95 





30,3354 

40220 

0 

gOWTCgOW 

5TQ 

S8TPD 

W96 

RBF 

1 



30,3355 

01214 

1 



9DWXX 

209T 





30,3358 

00001 

0 



OD 

W98 





30,3357 

41575 

0 


VLOAD 

puai 

W99 

REF 

4 

LAST 

545 

30,3360 

15332 

1 



HI6ZEROS 

2100 





30,3361 

41408 

0 


PUSH 

pusi 

2101 





30,3362 

77731 

1 


SSP 


2102 

REP 

1 



30,3363 

00017 

1 



9D*J 

2103 





30,3364 

00072 

1 


DEC 

58 

2104 





30,3385 

86150 

0 

9DWI=J 

I<XA,l 

SXA.l 

2105 

RBF 

2 

LAST 

601 

30,3368 

00016 

0 



gDwJ 

2106 

REF 

1 



30,3367 

00012 

1 



gDwI 

21 OT 





30,3370 

776 24 

1 

! 

r 

CALL 


2108 

RBF 

1 



30,3371 

61606 

0 



ROWDOT 

2109 





30,3372 

77750 

0 


LXA,l 


2110 

REP 

1 



30,3373 

00010 

0 



9CWP 

2111 

REP 

1 



30,3374 

08841 

1 


STORE 

E4ATRIX +40D.1 

2112 





30,3375 

88110 

1 


INCR, 1 

SXA , 1 

2113 





30,3378 

00002 

0 


Dec 

2 

2114 

RBF 

2 

LAST 

601 

30.33TT 

00010 

0 



9DWP 

2115 





30,3400 

46135 

1 


SIAWD 

HHIZ 


20*35 OCT. 28,1968 

USERaS PAGE NO. 50 
INTEGRATION FLAGS 


PANDORA .080 PAQB SOI 


E5 S3 


ALT , LANDALT METIERS B-29 


ALT , LANDALT NETERS B-29 


CLEAR WORKING AREA CF PUSHLIST 
INCLUDING P 
PD ibD 

J=29 USE 2+29 FOR DP WORDS 
SET I=J 


P VARIES 0-20 INSTEAD OF 20-0 


TEST 1=0 



ASSH4BLE REVISION 249 OP AGC PROGRAM COLOSSUS BY NASA 2021111-041 20’35 OCT. 28,1988 PANDORA .080 PACK 802 


L 

P20- 

-P25 







2116 

REF 

2 

LAST 

601 

30,3401 

00013 0 


9DWI 

21 IT 

REF 

1 



30,3402 

*1417 1 


90rresTJ 

2118 





30,3403 

TT625 0 

DSU 


2110 

REF 

2 

LAST 

557 

30,3404 

21646 0 


9Dwid 

2120 

REF 

3 

LAST 

602 

30,3405 

00013 0 

STORE 

9Dwi 

2121 





30,3406 

46025 1 

DSU 

B1IZ 

2122 

REF 

1 



30,3407 

21644 1 


9D»26D 

2123 

REF 

1 



30,3410 

61413 0 


9D*SETl2 

2124 





30,3411 

77650 1 

OOTO 


2125 

REF 

1 



30,3412 

61370 1 


9DWBPCAL 

2128 





30,3413 

52131 0 

9DWSETI2 SSP 

OOTO 

212T 

REP 

4 

LAST 

602 

30,3414 

00013 0 


9DWI 

2128 





30,3415 

00004 0 

dec 

4 

2129 

REF 

2 

LAST 

602 

30,3416 

61370 1 


gDwEPCAL 

2130 





30,3417 

46135 1 

gtxnesTJ SLOAD 

PHIZ 

2131 

REF 

3 

LAST 

601 

30,3420 

00017 1 


9DWJ 

2132 

REF 

1 



30,3421 

61436 1 


acwpioa 

2133 





30,3422 

77625 0 

DSU 


2134 

REP 

3 

LAST 

602 

30,3423 

21646 0 


9Dwro 

2135 

REF 

4 

LAST 

602 

30,3424 

00017 1 

STORE 

9DWJ 

2136 





30,3425 

46025 1 

DSU 

PHIZ 

2137 

REP 

2 

LAST 

602 

30,3426 

21644 1 


90*260 

2138 

REP 

1 



30,3427 

61432 0 


90*®TJ2 

2139 





30,3430 

77650 1 

GOTO 


2140 

REP 

1 



30,3431 

61365 0 


9DWI=J 

2141 





30,3432 

52131 0 

9DWSBTJ2 SSP 

GOTO 

2142 

REF 

5 

I AST 

602 

30,3433 

00017 1 


gOwJ 

2143 





30,3434 

00004 0 

DEC 

4 

2144 

REP 

2 

LAST 

602 

30,3435 

61365 0 


90*1= J 

2145 





30,3436 

T7624 1 

gDWFIGfl CALL 


21451 

REF 

15 

LAST 

597 

30,3437 

56741 0 


GRP2PC 

21452 





30,3440 

77331 0 

SSP 

VLOAD 

2146 

REP 

6 

LAST 

602 

30,3441 

00017 1 


90*J 

2147 





30,3442 

00072 1 

Dec 

58 

2148 

REF 

5 

LAST 

601 

30,3443 

15332 1 


HI8ZBR0S 

2149 

REF 

3 

LAST 

601 

30,3444 

00011 1 

STORE 

90*P 

2150 





30,3445 

66370 0 

AXT, 1 

SSP 

2151 





30,3446 

00154 1 

Dec 

108 

2152 

REF 

14 

LAST 

597 

30,3447 

00051 0 


Si 

2153 





30,3450 

00006 1 


6 

2154 

REF 

47 

LAST 

598 

30,3451 

06555 1 

CIFARW54 STORE 

W <-1080,1 

2155 





30,3452 

77700 0 

TIX, 1 


2156 

REP 

1 



30,3453 

61451 0 


CLEAEW54 

215T 





30,3454 

66150 0 

9DWI=JA LXA , 1 

SXA.l 

2158 

REP 

7 

LAST 

602 

30,3455 

00016 0 


9 »»J 

2159 

REF 

5 

LAST 

60.2 

30,3456 

00012 1 


90*1 

2160 





30,3457 

77624 1 

CA1L 


2161 

REF 

2 

LAST 

601 

30,3460 

61606 0 


ROWOOT 

2162 





30,3461 

43750 1 

LXA.l 

BDafA 

2163 

REF 

4 

1 AST 

602 

30,3462 

00010 0 


9DWP 


USER.S PACE NO. 51 B 5 S3 


TEST 1=26 


NEXT E SUB P 


TEST J=0 


J=J-1 
TEST J=28 


SET J=2 




START CP FIGURE 2.4-6 
J=29 


P,N,I=0 


Cl EAR WO TO W54 
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20*35 OCT. 28,1968 PANDORA .080 PAGE 603 



L 

P20-P25 









USERaS PA( 

21(4 

RBP 

2 

LAST 

801 

30,3463 

02641 

0 



matrix +40D.1 


tics 





30,3464 

66110 

1 


incr.i 

SXA.l 

-(P+ 1 ) 

21 SC 





30,3465 

00002 

0 



2 


tier 

RHP 

5 

LAST 

602 

30,3468 

00010 

0 



9 tWP 


tics 





30,3467 

54140 

0 


LXC.l 

XSU.l 

-( I+N) 

tics . 

HEP 

6 

LAST 

602 

30,3470 

00012 

1 



9DWI 


2170 

HEP 

1 



30,3471 

00014 

1 



gDflfN 


2171 





30,3472 

T1244 

0 


BPL 

DLQAD 

TEST WSO LTE 0 

2172 

REP 

1 



30,3473 

61477 

1 



9 D 2 AAA 


2173 

HEP 

6 

LAST 

602 

30,3474 

15332 

1 



HI 6 ZBROS 

W =0 

21T4 





30,3475 

T7650 

1 


GOTO 



2175 

REF 

1 



30,3476 

01500 

0 



9 DWAAB 


21 TC 





30,3477 

T7766 

0 

9 EWAAA 

SORT 


W= SORT(WSO) 

21 TT 

REP 

48 

LAST 

602 

30,3500 

06401 

1 

9 DWAAB 

STOffi 

W,1 


2178 

HEP 

1 



30,3501 

14001 

0 


STCDL 

WORKW 


2179 

RBP 

8 

LAST 

602 

30,3502 

00017 

1 



gDffJ 

TEST J=0 

2180 





30,3503 

77630 

1 


EHIZ 



2181 

REP 

1 



30,3504 

61572 

0 



gtxrexnx 

EXIT 

2182 





30,3505 

46135 

1 

TST2l=0 

SLOAD 

bhiz 

TEST 1=0 

2183 

RBP 

T 

LAST 

603 

30,3508 

00013 

0 



sDwi 


2184 

REP 

1 



30,3507 

61550 

0 



gIX*N=N+3 


2185 





30,3510 

77625 

0 


DSU 



2188 

RBP 

4 

LAST 

602 

30,3511 

21646 

0 



9 CWID 


tier 

RBP 

8 

LAST 

603 

30,3512 

00013 

0 


STORE 

9 DWI 

1 = 1-1 

2188 





30,3513 

46025 

1 


DSU 

BHIZ 

TE3T 1=26 

2189 

REP 

3 

LAST 

602 

30,3514 

21644 

1 



90»260 


2190 

REP 

1 



30,3515 

61520 

1 



9 DWAAC 


2191 





30,3516 

77650 

1 


GOTO 



2192 

REP 

1 



30,3517 

61523 

1 



9DWNBXEP 


2193 





30 , 3520 

77731 

1 

gDwAAC 

SSP 


1=2 

2194 

REP 

9 

LAST 

603 

30,3521 

00013 

0 



90WI 


2195 





30,3522 

00004 

0 



4 


2198 





30,3523 

77624 

1 

gtWNExBP 

CALL 



219T 

HEP 

3 

LAST 

602 

30,3524 

61606 

0 



rcwdot 


2198 





30,3525 

43750 

1 


LXA,l 

BDSU* 

(EP-RCWI*RCWJ>. 

2199 

RBP 

6 

LAST 

603 

30,3526 

00010 

0 



9»»P 


2200 

HEP 

3 

LAST 

603 

30,3527 

02641 

0 



MATRIX +40D,1 


2201 





30,3530 

62071 

0 


DTV 

INCR, 1 

P=P+1 

2202 

HEP 

2 

LAST 

603 

30,3531 

00001 

0 



wore<w 


2203 





30,3532 

00002 

0 



2 


2204 





30,3533 

70130 

1 


SXA,1 

LXC,1 


2205 

REP 

7 

LAST 

603 

30,3534 

00010 

0 



9 CWP 


2208 

REP 

10 

LAST 

603 

30,3535 

00012 

1 



9 DWI 


2207 





30,3536 

40060 

0 


XSU,1 

BOV 

-( I+N) 

2208 

REF 

2 

LAST 

603 

30,3537 

00014 

1 



9 DWN 


2209 

REP 

1 



30,3540 

61543 

1 



SBIVrIN=0 


2210 





30,3541 

77650 

1 


GOTO 



2211 

HEP 

1 



30,3542 

61545 

1 



9 EWSBTWX 


2212 





30,3543 

77745 

1 

SETWIN=o 

DI.OAD 


W( I+N)=0 

2213 

REP 

7 

LAST 

603 

30 , 3544 

15332 

1 



HI6ZEROS 



85 S3 
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2214 

2215 

2216 
221T 
2216 

2219 

2220 
2221 
2222 

2223 

2224 

2225 

2226 
2227 
2226 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

22351 

22352 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 


REF 

49 

LAST 

603 

30,3545 

06401 1 

9DWSETV0C STORE 





30,3548 

77650 1 


GOTO 

REP 

1 



30,3547 

61505 0 







30,3550 

62150 1 

9»W=N+3 LXA.l 

REP 

3 

LAST 

603 

30,3551 

00014 1 







30,3552 

00006 1 







30,3553 

67330 0 


SXA, 1 

REP 

' 4 

LAST 

604 

30,3554 

00014 1 



REP 

9 

LAST 

603 

30,3555 

00017 1 







30,3558 

77625 0 


DSU 

REP 

5 

LAST 

603 

30,3557 

21846 0 



REP 

10 

LAST 

604 

30,3560 

00017 1 


STORE 





30,3561 

46025 1 


DSU 

REP 

4 

LAST 

603 

30,3562 

21644 1 



REP 

1 



30,3563 

61566 0 







30,3564 

77650 1 


GOTO 

REP 

1 



30,3565 

61454 0 







30,3566 

52131 0 

S8TJr2A 

SSP 

REP 

11 

LAST 

604 

30,3587 

00017 1 







30,3570 

00004 0 



REP 

2 

LAST 

604 

30,3571 

61454 0 







30,3572 

77824 1 

StVExITX CALL 

REP 

16 

LAST 

602 

30,3573 

56741 0 







30,3574 

68370 0 


AXT.l 





30,3575 

00066 1 


DBC 

REP 

15 

LAST 

602 

30,35 7 6 

00051 0 







30,3577 

00008 1 







30,3600 

77775 1 


VLOAD 

REP 

6 

CAST 

603 

30,3601 

15332 1 



HEP 

50 

LAST 

604 

30,3602 

06843 0 

9D#EXXXA 

STORE 





30,3603 

52100 1 


TIX,1 

REP 

1 



30,3604 

81602 1 



REP 

2 

LAST 

601 

30,3605 

01214 1 







30,3606 

40131 0 

RCWDOT 

SSP 

REP 

1 



30,3607 

00007 0 







30,3610 

00377 1 


OCT 





30,3611 

61612 0 







30,3812 

71140 1 


LXC.1 

REP 

11 

LAST 

603 

30,3613 

00012 1 



REP 

12 

LAST 

604 

30,3614 

00016 0 







30,3615 

41545 0 


DLOID 

REP 

9 

LAST 

604 

30,3616 

15332 1 


1 





30,3617 

56743 1 

ROWDOTI 

DLQAD* 

REP 

51 

LAST 

604 

30,3620 

02401 0 



REP 

52 

LAST 

604 

30,3621 

75 376 1 


\ 





30,3622 

41415 1 


DAD 





30,3623 

62000 0 


BO/ 

REP 

1 



30,3624 

81640 1 


1 





30,3625 

77771 0 


dec 





30,3628 

67314 0 


incr j2 : 


»,1 

TST2l=0 

INCRj i 

9MN 

6 

S-OAD 

9DWN 

9»J 

SO»ID 

9f»J 

BHIZ 

9W26D 

SETJ=2A 

9CVI-JA 

GOTO 

9 DwJ 
4 

9OWI-JA 

GHP2PC 

SSP 

54 

31 

6 

HI6ZBROS 
W *162l>,l 
GOTO 
9»»EXXXA 
9»*XX 
BOV 
XTMPi 
377 
♦1 

LXC,2 

9CWI 

90WJ 

PUS! 

HI6ZEROS 

dmpr* 

w,i 

W,2 

PU91 

INCR,1 

ROWDOT3 

-6 


20'35 OCT. 28,1968 PANDORA. .080 PACE 604 
USBRoS PACE NO. 53 E5 S3 

N=N+3 
JrJ-1 ■ 


TEST Jr 26 


J=2 


CLEAR W6,W7,WB USED UMP FOR EMATRIX 
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20*35 OCT. 28,1968 PANDORA .080 PAOB 605 
USRaS PAOB NO. 54 *5 S3 



2262 

2263 

2264 

2265 

2266 
226T 
2268 
2269 
22T0 
22T1 
22T2 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 

2283 

2284 

2285 

2286 
2287 
2289 

2289 

2290 

2290 

2291 

2291 

2292 

2292 

2293 

2293 

2294 

2295 

2299 

2300 

2301 


REP 2 LAST 604 


REE 

REE 

REF 


1 

3 LAST 805 
1 


REE T LAST 595 
REP 2 LAST 605 


REP 


3 LAST 598- 
REF 16 LAST 598 
REF 9 LAST 597 


REF 53 LAST 604 


REP 5 LAST 574 
REF 2 LAST 585 


30,3827 

30.3630 

30.3631 

39.3632 
30,3833 
30,3634 
30,3835 
30,3838 
30,3637 

30.3640 

30.3641 

30.3642 
0000 
0006 
0010 
0012 
0014 
0016 
1214 

E7,1501 
1256 
0022 
0030 
0036 
0040 
E5.1634 
30,3843 
30,3644 
30,3845 
30,3848 
30 , 3647 

30.3650 

30.3651 

30.3652 

30.3653 

30.3654 

30.3655 
30,3658 

1214 

23,2000 

23,3138 


77771 

0 


Dec 

-« 

00007 

0 



XWPl 

70430 

1 


EHIZ 

SRI 

61638 

0 



ROKDOT2 

00007 

0 


STOBfi 

X7KP1 

77650 

1 


GOTO 


61617 

0 



RCSKXm 

77745 

1 

ROSDOT2 

DU»D 


77616 

0 


RVO 


77614 

1 

ROKOOT3 

CLRGO 


01631 

1 



OR0WFLA O 

61636 

0 



BOHDOT2 



WORCW 

= 

0D 



XTMP1 

s 

6D 



9»*P 

- 

BD 



9DwI 


10D 



90*7 

= 

120 



gTWJ 


UD 



9DWXX 

— 

S22UCPF 



S22UMBL 

— 

(VECTOR 



S22UUT 

- 

DBLTAX 



S223X1 

= 

18D 



S221X3 

- 

24D 



S22D 


30D 



S22HHO 

s 

320 



S22RL 

= 

W *1560 

00064 

0 

91X7260 

2oec 

52 B— 14 

00000 

1 




00002 

0 

9EWID 

2DGC 

2 B-14 

00000 

1 




10306 

0 

sctvar 

2D6C 

1.0 E-6 1 

36750 

0 




00253 

0 

inuvarr 

2D6C 

0.04 E-6 

31438 

1 




10000 

0 

DeCiB2 

2PBC 

1 B-2 

00000 

1 




01461 

0 

VO6N49EE VN 

00B49 

01531 

1 

V08N89B 

VN 

00689 



S22UOFP 

- 

LEMPOS 




SEUXE P20S2 




BANK 



P 

1 
N 
J 

18 

18 

6 

6 

2 
2 
6 


U SUB OFF 
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ASSHBLB REVISION 249 OF AOC PROGRAM COLOSSUS by NASA 2021111-041 
P20-P25 



R2400 


20 ’35 OCT. 28,1968 PANDORA .080 PAGE 60^ 
USR«S PAGE NO. 56 Bs S3 


P23T2 

R23T3 

R23T4 


V89CALL 


SlBRCUTINB NAM3’ 

MOD NO’ 0 

MOD BY’ DIGITAL DEVEL GROUP 


DATE’ e FEB 1968 
LOO SECTION’ P20-P25 


R2375 FUNCTIONAL DESCRIPTION’ 


R2376 

R2377 

R2378 


CALLED BY VERB 89 INTER DURING Poo. PRIO 10 US2D. CALCULATES AND 
DISPLAYS FINAL GIFBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS 
(UNIT(Z)COS55 DEG ♦ UNIT(X>SIN55 DEG) AT LM. 


R2379 

R2380 


1 . KEY IN V 89 B ONLY IP IN PROG 00. IF NOT IN POO, OPERATOR ERROR AND 
EXIT H83, OTHERWISE CONTINUE. 


R2381 

R2382 


2 . IP IN POO, DO IMU STATUS CHECK (R02B0TH). IP IRI ON AND ITS 
ORIENTATION KNOWN TO CGC, CONTINUE. 


R2383 

R2384 

R2385 

R2386 


3 . FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO 
BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS. <R 2 =l) . 
ASTRONAUT CAN CHANGE TO UX) AXIS <R2 NOI>r 1 ) BY V 22 B 2 B. CONTINUE 
AFTER KEYING IN PROCEED. 


R2387 

R2386 


4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. 3TT FLAG 
FOR PREFERRED AXIS. RESET FLAG FUR X AXIS. 


R2389 

R2390 

R2391 

R2392 


CURRENT TIPK IS STORED AND R 63 CCMP IS CALLED 
R63C0MP JOB’ 

UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS 
CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3 SB TO LM. 


R2393 

R2394 


DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG 
ARE STORED FOR LATER HeoCSM CALL. 


R2395 6 . FLASH DISPLAY V 06 Nl 8 AND AWAIT RESPONSE. 


R2398 

R239T 

R2398 

R2399 


7 . RECYCLE- RETURN TO STEP 5 . 

TERMINATE- EXIT R63 ROUTINE 

PROCEED- RESET 3 AXISFLO AND CALL ReoCSM FOR ATTITUDE MANEUVER. 
CALLING SEQUENCE’ V 89 B 


R2401 

R2402 

R2403 


SUBROUTINES CALLED’ CHKPOCH, R02BOIH, GCNDSPF, R 83 CCMP, RSOCSM 
ALARMS 


1 . OPERATOR ERROR IF NOT IN POO 

2. PROGRAM ALARM IK IMU IS OFF 

3 . PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN 





ASSB'BLiS REVISION 249 CP AQC PROGRAM Cf¥/V?<ai« nv mada 

PROGRAM COLOSSUS BY NASA 2021111-041 20*35 OCT. 28,1968 PANDORA .080 PACE 

P20-P25 


R2404 ERASABLE INITIALIZATION BSaJIRSV NONE 


USRR-S PACE NO. 57 


R2405 
24055 
24055 
2406 
240 T 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 . 
*2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 
24325 

2433 

2434 

2435 

2436 
243T 

2438 

2439 

2440 

2441 

2442 

2443 


OPTICNl, OPTICNi+i, 
23,3136 


REP 13 LAST 588 


BEP 2 LAST 582 


REP i 
REP 144 
BEP 3 
BEP 19 
BEP 3 
BEP 72 
REP 4 
REP i 
BEP 145 
BEP 20 
BEP 26 


BEP s 
BEP 73 


last 608 

LAST 608 


BEP i 
BEP 31 
BEP 2 
BEP 109 


LAST 565 
LAST 54 
LAST 599 


BEP 17 
BEP i 
REP 14 
BEP 1 


LAST 583 
I A ST 608 


BEP 1 
BEP 146 
BEP 21 
HEP 27 


LAST 608 
LAST 608 
LAST 608 


BEP i 
BEP 32 
REP 4 


LAST 608 
LAST 564 


I 


23,3137 

E4.1T15 

34,3601 

34,2000 

34,3801 


PRPIRCATCPREP ATT 
00000 1 DPIMIN 
13560 0 


PLAO),P2iTD«, 3AXISPLG 
2DSC 6000 


LAST 599 
LAST 555 
LAST 565 
LAST 518 
LAST 595 
LAST 608 


BS4J6C- 

BANK 

ffiTLOC 

bank 

COUNT* 


P21TIMB 

34 

P20S4 


LAST 608 
LAST 599 
LAST 511 


34,3601 

0 4555 0 

V89CALL 

1C 

bankcall 

34,3602 

17573 0 


C.ADR 

R02BOIH 

34,3503 

3 6214 0 


CAP 

THREE 

34,3604 

55*131 1 


TS 

OPTICNl 

34,3605 

3 4712 1 


CAP 

CNR 

34,3606 

55-132 1 


TS 

OPTICNl +1 

34,3807 

3 3650 1 


CAP 

VB04N06 

34,3810 

0 4555 0 


1C 

BAMCCALL 

34,3811 

20624 0 


CADS 

goflasi 

34,3612 

0 5423 1 


TC 

endrxt 

34,3613 

0 3615 0 


1C 

♦2 

34,3814 

0 3807 0 


TC 

-5 

34,3815 

4 1132 1 


CS 

OPTICNl +1 

34,3616 

6 4712 1 


AD 

CNB 

34,3817 

0 0006 1 


EXTEND 

34,3620 

1 3845 1 


BZP 

SBTPAP 

34,3621 

0 5447 0 

RSTPAP 

TC 

DCBNFLAG 

34,3622 

00120 1 


adbbs 

BNGSCFLG 

34,3623 

0 6006 1 

V89RECL 

TC 

INTPRBT 

34,3624 

43234 0 


RIB 

DAD 

34,3625 

45505 0 



LOADTIME 

34,3626 

07137 0 



DPlMIN 

34,3627 

36318 0 


SICALL P21TIMS 

34,3630 

71461 1 



R63CCMP 

34,3631 

77776 1 


exit 


34,3832 

3 3651 0 


CAP 

VB06N18 

34,3633 

0 4555 0 


TC 

bankcall 

34,3634 

20624 0 


CADR 

goflasi 

34,3635 

0 5423 1 


TC 

ENDEXT 

34,3638 

0 3640 0 


TC 

♦2 

34,3637 

0 3623 0 


TC 

V89HECL 

34,3640 

0 5447 0 


TC 

DOWNFLAG 

34,3641 

00124 0 


adres 

3AXISFLG 


IHJ STATUS CHECK. RETURNS IP ORIENTATION 
KNOWN. ALARMS IP NOT. 

ALLCVf ASmCNAur TO SELECT DESIRED 
TRACKING ATTITUDE AXIS. 


V 04 N 06 


TERMINATE 

PROCEED 

DATA IN. OPTICNl +1 = 1 FOR PREP AXIS 
= 2 POR X AXIS 

1 for prep axis. 2 for x axis. 


RESET PREF ATT FLAG FOR R63CCMP 
TO DO X AXIS. RESET BIT 10 FLAG 5 




READ PRESENT TIME 

INTEGRATE TO 1 MIN FRCM NOW 

STORE TIME FOR CALL TO R63CCMP, R63CCMP 

LEAVES DESIRED GIM ANGS IN THETAD,LOS IN 

POINTVS4, AND SEIECTED AXIS IN SCAXIS 

V 06 N 18 

NON 18 REFERS TO THE DESIRED GIMBAL 


TERMINATE 

PROCEED 

RECYCLE 

RESET 3 AXIS FLAG 
RESET BIT 6 FLAG 5 
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L P20-P25 


1444 

HEP 

14T 

LAST 

608 

34,3642 

2445 

HEP 

3 

LAST 

585 

34,3643 

1445 

HEP 

28 

LAST 

608 

34,3844 

244T 

HEP 

30 

LAST 

565 

34,3645 

2448 

REP 

3 

LAST 

60S 

34,3846 

2449 

HEP 

2 

LAST 

608 

34,3847 

2450 





34,3650 

2451 





34,3851 

2452 

HEP 

2 

LAST 

583 

34,3461 


0 4555 

0 


1C 

BANkCALL 

58000 

1 


CADR 

R80CS4 

1 5423 

0 


TCP 

EMEXT 

0 5435 

0 

ffiTPAF 

1C 

UPFLAG 

00120 

1 


ADHRS 

tWGSCFLG 

0 3623 

0 


1C 

V8SKZCL 

01006 

0 

VB04NO6 

VN 

0406 

01422 

1 

vBoeNia 

VN 

0618 


R83CCWP EQUALS R83 






USERacS PAGE NO. 58 E4 S3 

PERFORMS CS4 MANEUVER TO ALIGN SELECTED 
SPACECRAFT AXIS TO LOS. 

SET PREFERRED ATT FLAG FOR R63CCMP 
TO DO PREP AXIS. SET BIT 10 FLAG 5. 
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P2453 

R24S4 

R2455 

R2458 

R24ST 

R2458 

R2459 

R2480 

R2461 

R2462 

H2483 

R2464 

R24645 

R2464T 

R24648 

R24849 

R2465 

R246S1 

R24652 

R2466 

R24865 

2467 


PTOtWM NAM?- p 23 CISUKAR MIDCOURSE NAVIGATION 
MUD NO 

MOD BY- TOM KNATT 

SST35 "■ 

CALLING S&OJENCB- astronaut OPSRATSD 

INTEGRATION (INTEGRV) 
DIsplAY IN1ERi?ACE RarrlNEs - 

ALARMS- NONE 
ABORT modes- none 

^ IRED " ®"JL LAT,IXNG/ 2,ALT OR ID NU6B 

«» *» * -srs™*™ r™rsri"™ ,s us “- 

s zsjs'x,. 


20*35 OCT. 28,1968 PANDORA .080 PATH g 10 
USE Ha 3 PAGE NO. 59 B4 33 


2468 

REF 

1 



2469 

’2470 

REP 

1 



2471 

REP 

54 

LAST 

605 

24712 

REP 

33 

•LAST 

608 

24714 

REP 

4 

LAST 

555 

2472 

REP 

10 

LAST 

590 

2473 




2474 





2475 

REP 

1 



2476 

REP 

3 

LAST 

569 

2477 

REP 

110 

LAST 

608 

2478 




2479 

REP 

5 

last 

556 

2480 





2481 

REP 

2 

LAST 

555 

2482 





2483 

REP 

3 

LAST 

554 

2484 

REP 

3 

LAST 

202 

2485 





2486 





2487 

REP 

6 

LAST 

209 

2468 

24882 

24883 

REP 

1 



24884 

REP 

2 

LAST 

260 

24885 

REP in 

LAST 

610 


31,2021 

31,2000 

31,2021 


, 1400 

31.2021 

31.2022 


0 5447 0 
00010 0 


BANK 31 
SBTLOC RT23 

bank 

COUNT 31/S23 
ERANK= w 
tc DObnFIAG 
adres RNDvzFLG 


31.2023 

31.2024 

31.2025 

31.2026 

31.2027 

31.2030 

31.2031 

31.2032 

31.2033 

31.2034 

31.2035 
31', 2036 
31,2037 

31.2040 

31.2041 

31.2042 

31.2043 

31.2044 

31.2045 

31.2046 

31.2047 


0 5261 1 
00004 0 
00012 1 

3 4760 1 
55«056 1 
0 6006 1 
43131 0 

00302 0 

00001 0 
00666 1 
66214 0 
00665 1 
00305 1 
00000 1 
43131 0 

00303 1 
00000 1 
03267 1 
77414 0 
04664 1 

0 6006 1 P23.00 


2PHSCHNG 

00004 

00012 

PRIO13 

PHSPRDT2 

INTPRBT 

CLEAR 

MAR0INPX 

1 

TAHG2RLG 

SSP 

WRGiFLG 

STARIND 

0 

CLEAR 
BEST I 
0 

R57PLAG 

EXIT 

V94FIAG 

INTPRBT 




LEAVE GROUP 4 
B4TER GROUP 2 


TARGET FLAG USED BY R52 AND R53 


SET = DO NOT REPERFORM R57 
SET = AU.CW V 94 




I 


■ 

I 



ill 
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L 

P20- 

P25 









>489 





31,2050 

45014 

0 


BCN 

CALL 

>490 

REF 

4 

LAST 

576 

31,2051 

01702 

0 



refsmplg 

2*91 

REP 

1 



31,2052 

62060 

0 



P23.0S 

2492 

REF 

1 



31,2053 

76360 

0 



R5T 

2*93 





31,2054 

77624 

1 


CALL 


249* 

REF 

1 



31,2055 

31322 

0 



R53 

>495 





31,2056 

77850 

1 


GOTO 


2498 

REP 

1 



31,2057 

62236 

1 



P23.60 

2500 





31,2060 

77414 

0 

P23.05 

CLEAR 

EXIT 

>501 

REF 

1 



31,2061 

04665 

0 



SAVECFLG 

2502 

REF 

1 



31,2062 

3 3050 

1 


CAP 

V05NT0 

2503 

HEP 

148 

LAST 

809 

31,2063 

0 4555 

0 


TC 

HANkCALL 

2504 

REF 

22 

LAST 

808 

31,2084 

20624 

0 


CADR 

GOFLAai 

2505 

REP 

28 

LAST 

599 

31,2065 

0 4106 

1 


TC 

OOTOPOCH 

>508 

REF 

1 



31,2066 

0 2070 

1 


1C 

P23.15 

2S0T 





31,2087 

0 2062 

1 


1C 

-5 

2508 

REF 

19 

LAST 

589 

31,2070 

3 1751 

0 

P23.15 

CA 

landmarc 

2S09 





31,2071 

0 0006 

1 


EXTEND 


2510 





31,2072 

1 2074 

1 


BZP 

♦2 

2511 





31,2073 

0 2075 

1 


1C 

♦2 

2512 

REF 

• 4 

LAST 

276 

31,2074 

3 1752 

0 


CA 

HORIZCN 

2513 

REF 

23 

LAST 

574 

31,2075 

7 4703 

0 


MASK 

bits 

2514 





31,2076 

0 0008 

1 


extend 


2515 

REF 

1 



31,2077 

1 2104 

1 


BZP 

P23-16 

>518 

REF 

112 

LAST 

610 

31,2100 

0 6006 

1 


1C 

INTPRET 

251T 





31,2101 

52014 

0 


set 

GOTO 

2518 

REF 

11 

LAST 

599 

31,2102 

01483 

1 



LUNAFLAG 

2519 

REF 

1 



31,2103 

62107 

0 



P23.1T 

2520 

REF 

113 

LAST 

611 

31,2104 

0 6006 

1 

P23.16 

1C 

INTPRET 

2521 





31,2105 

77614 

1 


Cl FAR 


2522 

HEP 

12 

LAST 

611 

31,2106 

01663 

0 



LUNAFLAG 

2523 





31,2107 

41535 

1 

P23.17 

SIXMO 

PUS! 

25231 

REP 

5 

LAST 

444 

31,2110 

00736 

0 



sdarccde 

25232 





31,2111 

41335 

1 


SLOAD 

DMP 

25233 

REF 

1 



31,2112 

23055 

0 



SPSIX 

25234 





31,2113 

66150 

0 


LXA,1 

SXA.l 

25235 

REF 

259 

LAST 

598 

31,2114 

00155 

0 



MPAC 

25238 

REF 

T 

LAST 

610 

31,2115 

00302 

0 



BESTI 

25237 





31,2116 

77624 

1 


CALL 


25238 

REP 

1 



31,2117 

30000 

1 



LCWMEMRY 

25239 

REP 

2 

LAST 

92 

31,2120 

02617 

0 


STORE 

STARSAV2 

252395 





31,2121 

77776 

1 


EXIT 


2524 

HEP 

20 

LAST 

611 

31,2122 

3 1751 

0 


CA 

LANDMARC 

2525 

REF 

1 



31,2123 

7 3052 

1 


MASK 

OCT00077 

2528 

REP 

2 

LAST 

95 

31,2124 

55«753 

0 


TS 

ID0FU4C 

2527 

R BF 

5 

LAST 

611 

31,2125 

3 1752 

0 


CA 

HORIZCN 

2528 





31,2126 

0 0006 

1 


EXTEND 


2529 

REF 

1 



31,2127 

1 2144 

0 


BzF 

PZ3.12 

2530 

REP 

30 

LAST 

553 

31,2130 

7 4706 

0 


MASK 

BITS 

2531 





31,2131 

0 0006 

1 


EXTEND 
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®T NO* AS INPUT, NORMALLY EXTERNAL CCNT 
«HEN ALIGNED, PERFORM MEASUREMENT 
DO OPTICS CALIBRATION IF IMU NOT ALIGNED 


USED TO SAVE SPACE IN P23.65 

REQUEST RESPONSE AND DISPLAY MEASUREMENT 

IDENTIFICATION- STAR,LMK,HOR IDENT. 

TERMINATE 

REDISPLAY 

IF Cr2,LUNAFLAQ=l. IP C- 1 , UJNAFLAGr 0 


SET UJNAPIAO FRCM HORIZON OR LANDMARK 


BESTI = 6XSTAR NUMBER 

NEEDED TO RETRIEVE STAR VECTOR FRCM LOW 
STORE FOR R53.P23. USC IN P23)=STARSAV2 


FOR R3<DE) LUNAFIAG ALREADY SET 


IF D=1,NORFHOR=0(NEAR) .D=2,NORFHOR=l,FAR 
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2532 

REP 

1 



2533 

HEP 

114 

LAST 

611 

2534 





2535 

REP 

1 



253# 

HEP 

1 



2537 

HOP 

115 

LAST 

612 

2538 





2539 

REP 

2 

LAST 

612 

2540 





2544 

RHP 

1 



2545 

REF 

3 

LAST 

611 

2548 





2547 

REP 

1 



2548 

REP 

2 

last 

612 

2549 

REF 

1 



2550 

REP 

149 

LAST 

611 

2551 

REP 

23 

LAST 

611 

2552 

REF 

29 

LAST 

611 

2553 

REP 

3 

LAST 

612 

2554 

HEP 

2 

LAST 

612 

2555 

RH' 11# 

LAST 

612 

2556 





255T 

RHP 

2 

LAST 

611 

2558 

REP 

1 



2559 

REP 

1 




150 LAST 
1 


30 LAST 
2 LAST 


RHP 2 LAST 
HEP 1 
RHP 11T LAST 


31.2132 

31.2133 

31.2134 

31.2135 

31.2136 

31.2137 

31.2140 

31.2141 

31.2142 

31.2143 

31.2144 

31.2145 
31,2148 
31,2147 

31.2150 

31.2151 

31.2152 

31.2153 

31.2154 

31.2155 

31.2156 

31.2157 

31.2160 

31.2161 

31.2162 
31,2183 

31.2164 

31.2165 


1 2137 1 


BZP 

P23.18 

0 6008 1 


TC 

INTPRBT 

52014 0 


SET 

GOTO 

00084 0 



norfhor 

62142 1 



P23.19 

0 6006 1 

P23.18 

TC 

INTPRBT 

77614 1 


CLEAR 


00284 1 



NORFHOR 

77776 1 

P23.19 

exit 


0 2156 1 


TC 

P23.30 

3 1753 1 

P23.12 

CA 

IDOFU-K 

0 0006 1 


EXTEND 


1 2150 0 


BzP 

P23.20 

0 2156 1 


TC 

P23.30 

3 3047 1 

P23.20 

CAP 

V6N89 

0 4555 0 


TC 

BANKCALL 

20624 0 


CADR 

GOFLASH 

0 4106 1 


TC 

OOTOPOCH 

0 2156 1 


1C 

P23.30 

0 2150 1 


1C 

P23.20 

0 6006 1 

P23.30 

1C 

INTPRBT 

77414 0 


BGN 

exit 


04705 1 
62265 1 
3 3053 1 
0 4555 0 
20751 0 
0 4106 1 


S4VECFLG 

P23.85 

V50N25P 

BANkCALL 

GOPERPi 

GOTOPOOH 


VERB 
118 LAST 


18 LAST 
8 LAST 
1 


17 LAST 
4 LAST 
1 

14 LAST 


34 LAST 
5 LAST 

1 

3 LAST 

35 (AST 


207 

31,2166 

0 2173 0 

TC 

V94ENTER 

612 

31,2167 

0 2170 0 

TC 

P23.55 

31,2170 

0 8008 1 

P23.55 TC 

INTPRET 


31,2171 

77650 1 

GOTO 



31,2172 

62224 1 


P23.58 

94 BEGINS HERE 



612 

31,2173 

0 6006 1 

V94ENTER TC 

INTPRET 


31,2174 

77634 0 

RTS 


608 

31,2175 

45505 0 


LOADTIME 

577 

31,2176 

35225 1 

SICALL MARCTIMB 


31,2177 

62272 1 


POINWXS 


31,2200 

53521 1 

MXV 

UNIT 

586 

31,2201 

01736 1 


REPSMMAT 

506 

31,2202 

27357 0 

STCVL 

POINTVSM 


31,2203 

23056 0 


JCAXIS 

587 

31,2204 

0335 1 0 

STORE 

SCAXIS 


31,2205 

77776 1 

EXIT 


610 

31,2208 

0 5447 0 

TC 

DOWfFIAG 

608 

31,2207 

00124 0 

ADRES 

3AXISFUI 


31,2210 

3 3063 1 

CAP 

R80ADRS 

197 

31,2211 

54 374 0 

TS 

TBMPFLSH 

598 

31,2212 

0 5301 0 

TC 

PHASCHNO 
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IP R2(DG) NCNZERO, U4C IS IDENTIFIED 


LANDMARK NOT IDENTIFIED 

landmark is identified 

REQUEST RESPONSE AND DISPLAY UAC DATA 
Rl=LAT, R2=LCNQ/2 , R3-ALT 


TERMINATE 

STORE NB» DAW AND REDISPLAY 


OOPERFi BLANKS CUT R2 AND R 3 . 


PROCEED. AUTOCCNTROI, CMC 
ENTER. MANUAL CONTROL 




READ CLOCK 


RETURN LOS IN RCIJLi AND MPAC 


CIEAR AND GO TO VECpOINT IN R60. 
BIT 6 FIAG 5 
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I 
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L P20-P25 


258T 





31,2213 

00012 

1 


OCT 

00012 

25871 

REP 

151 

LAST 

612 

31,2214 

0 4555 

0 

RaoCAlL 

TC 

BANKCALL 

25872 

REP 

4 

LAST 

609 

31,2215 

56000 

1 


CADR 

R80CS4 

25873 

REP 

36 

LAST 

612 

31,2216 

0 5301 

0 


TC 

PHASCHNG 

25874 





31,2217 

04022 

0 


OCT 

04022 

2588 

REP 

119 

LAST 

612 

31,2220 

0 6008 

1 


TC 

intpret 

2589 





31,2221 

77614 

1 


BCN 


2590 

REP 

2 

LAST 

610 

31,2222 

03307 

0 



rstflag 

2591 

REP 

1 



31,2223 

62226 

0 



P23.5T 

2592 





31,2224 

77624 

1 

P23.56 

CALL 


2593 

REP 

2 

LAST 

611 

31,2225 

76360 

0 



R5T 

2594 





31,2228 

43014 

0 

P23.57 

SET 

S2T 

2595 

REP 

3 

LAST 

610 

31,2227 

04464 

0 



V 94 FLAG 

2596 

REP 

3 

LAST 

613 

31,2230 

03087 

0 



R 5 TFLAG 

2597 





31,2231 

77624 

1 


CALL 


2598 

REP 

3 

LAST 

558 

31,2232 

30002 

0 



R52 

2608 





31,2233 

43014 

0 


CLEAR 

clear 

2609 

REP 

4 

LAST 

613 

31,2234 

04684 

1 



V 94 FLAG 

2610 

REP 

4 

LAST 

613 

31,2235 

03267 

1 



R 57 PLAG 

2611 





31,2236 

77776 

1 

P23.60 

EXIT 


2612 





31,2237 

0 0004 

0 


INHINT 


2613 

REP 

32 

LAST 

590 

31,2240 

3 1330 

0 


CA 

M4HCSTAT 

2614 

REP 

6 

LAST 

413 

31,2241 

7 4747 

0 


MASK 

LOwio 

2615 

REP 

5 

LAST 

591 

31,2242 

55*242 

0 


TS 

MARCDATA 

2616 





31,2243 

0 0006 

1 


EXTEND 


2617 

REP 

6 

LAST 

613 

31 , 2244 

5 1242 

1 


INDEX 

MAHkDATA 

2618 





31,2245 

3 0001 

0 


DCA 

0 

2619 

REP 

9 

LAST 

612 

31,2246 

53«225 

1 


DxOl 

wrktime 

2620 

REP 

T 

LAST 

613 

31,2247 

51*242 

1 


INDEX 

markdaw 

2621 





31,2250 

3 0005 

1 


CA 

5 

2622 

REP 

1 



31,2251 

57*754 

0 


XCH 

TRUNICN 

2623 





31,2252 

0 0003 

1 


RELINT 


2624 

REP 

1 



31,2253 

3 3051 

0 


CAP 

V 05 N 71 

2625 

REP 

152 

LAST 

613 

31,2254 

0 4555 

0 


TC 

RANKCALL 

2626 

REP 

24 

LAST 

612 

31 , 2255 

20624 

0 


CADR 

GCFLASI 

2627 ' 

REP 

31 

LAST 

612 

31,2256 

0 4106 

1 


TC 

GOTOPOCH 

2628 

REP 

1 



31,2257 

0 2261 

0 


TC 

P23-65 

2629 





31,2260 

0 2253 

1 


TC 

-5 

2630 

REP 

120 

LAST 

813 

31,2261 

0 6008 

1 

P23.65 

TC 

INTPRET 

2631 





31,2262 

77414 

0 


SET 

EXIT 

2632 

REP 

3 

LAST 

612 

31,2263 

04465 

1 



SAvECFLG 

2633 

REP 

2 

LAST 

811 

31,2264 

0 2070 

1 


TC 

P23.15 

2639 





31,2265 

45014 

0 

P23.85 

CLEAR 

CALL 

2640 

REP 

8 

LAST 

590 

31,2266 

02676 

1 



RENEWING 

2641 

REP 

2 

LAST 

612 

31,2267 

62272 

1 



POINTAXS 

2642 





31,2270 

77850 

1 


GOTO 


2643 

REP 

1 



31,2271 

62364 

1 



R23.55 

R2644 

WE BEGIN 

CALCULATIONS HERE 






R2645 

POINTAXIS SUBROUTINE 







2646 





31,2272 

67220 

0 

POINTAXS 

STO 

SIXWD 


USERsS PAGE NO. 62 *5 S3 


DO NOT RBPERPOPM RST ' 


TERMINATE 
STORE DATA 
REDISPLAY 
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M4T 

REF 

5 

LAST 

2640 

20481 

REP 

21 

LAST 

20482 

REF 

1 


20483 

2049 

REP 

4 

LAST 

2850 

REF 

1 


2051 

2052 

REF 

1 


2653 

2654 

REF 

2 

LAST 

2655 

2650 

REF 

2 

LAST 

265T 

REF 

8 

LAST 

2658 

REF 

1 


20582 

26584 

REF 

1 


2059 

2660 

REF 

2 

LAST 

2661 

2062 

REP 

8 

LAST 

2603 

REF 

9 

LAST 

2664 

REF 

1 


2665 

2666 

REF 

10 

LAST 

266T 

REF 

10 

LAST 

2668 

2669 

REP 

9 

LAST 

26T0 

26T1 

REF 

37 

LAST 

26T2 

26T3 

REF i 21 

LAST 

26 T 4 
26T5 

REF 

1 


26T6 

REF 

1 


20TT 

REP 

1 


2678 

REF 

4 

LAST 

2879 

2680 

REP 

2 

LAST 

2681 

REP 

22 

LAST 

2682 

2683 

REP 

1 


2684 

2685 

REP 

5 

LAST 

2686 

REP 

10 

LAST 

2687 

2688 

REP 

3 

LAST 

2689 

2690 

REP 

1 


2691 

REP 

1 



576 

31,2273 

01150 1 

611 

31,2274 

02752 0 


31,2275 

67230 1 


31,2278 

62307 1 

612 

31,2277 

02754 0 


31,2300 

45030 0 


31,2301 

62305 0 


31,2302 

63084 0 


31,2303 

T7650 1 

614 

31,2304 

62307 1 


31,2305 

7T624 1 

558 

31,2306 

01345 1 


31,2307 

71214 0 

605 

31,2310 

01711 1 


31,2311 

62315 1 


31,2312 

03001 0 


31,2313 

34001 1 

570 

31,2314 

56544 1 


31,2315 

778 24 1 

573 

31,2316 

56343 0 


31,2317 

43014 0 

614 

31,2320 

01751 0 


31,2321 

62323 1 

601 

31,2322 

01476 0 


31,2323 

45014 0 

614 

31,2324 

01471 1 

591 

31,2325 

27113 1 


31,2326 

T7778 1 

613 

31,2327 

0 5301 0 


31,2330 

04022 0 

613 

31,2331 

0 8008 1 


31,2332 

T7824 1 


31,2333 

62787 0 


31,2334 

T7214 0 


31,2335 

00345 0 


31,2336 

62341 0 

87 

31,2337 

02272 1 

119 

31,2340 

03627 1 


31,2341 

46135 1 

614 

31,2342 

0275 2 0 


31,2343 

6235 3 0 


31,2344 

T7614 1 

591 

31,2345 

00462 1 


31,2346 

45145 0 

613 

31 , 2347 

01225 0 

598 

31,2350 

26373 1 


31,2351 

77650 1 


31,2352 

62355 0 


31,2353 

T7624 1 


31,2354 

62527 0 



BHIZ 

POINTEX 

LANDMARK 

SXMD 


EHIZ 

R23.05 

IDOFLHC 

CALL 

R23.0 

GOTO 

CALL 

R23.0 

LLNLHCLD 

R23.05 

R23.05 

BCN 

LLASRDA 

DLCAD 


ORBffFLAG 
R23.1 
9MIDPOS 
STCALL 0 

R23.1 

CALL 

INITIAL* 


BOP 

SETINTG 

SET 

R23.2 

SET 

ORBwFLAG 

R23.2 

DIMoFTAG 

CALL 


EXIT 

TC 

ORBWFLAG 

INTBGRV 

PHASCHNG 


OCT 

04022 


TC 

INTPRET 


CALL 

BCFF 

RECT.l 

VLOAD 


STORE 

ZMASURB 

R23.3 

ROW 

RZC 

R23.3 

SLCWD 

PHIZ 


LANDMARK 

R23.4 

SET 

ERADFLAG 
DLCttD CALL 

MARCTIME 

IALOTORV 

GOTO 

R23.5 

.4 CAIJ, 

HORIZ 


IF LANEMARK=0 HORIZCN IS DESIRED. 

DO NOT PIQC UP LHC VALUES FRCM TABLE 
OR DISPLAY IN HORIZCN CASE 


HIST BE DONE 2ND TIME, TO ALLO» CHANCES 


INITIALIZE W-MATRIX FIRST PASS IN P23 
SETUP FOR CSM INTEGRATION 


INTEGRATE CSM STATE VEC . TO MARKTIMB 

PICKUP CSM STATE VECTOR FROM PERM 
IN SPHERE OF INFLUENCE OF PRIMARY BODY 
CALCULATED BY INTEGRATION B29 

IF LANDMARK = 0, USE HORIZ SUBR 
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L P20-P25 


2692 

REP 

2 

LAST 

119 

31,2355 

03665 1 R23.5 

STORB 

RL 

2693 

2694 

REP 

3 

LAST 

614 

31.2356 

31.2357 

40251 0 

03627 1 

VSU 

SETPD 

RZC 

2695 

2696 

REP 

2 

LAST 

119 

31,2360 

31,2381 

00001 0 

03657 0 

STORE 

0 

RCLL 

269T 

2698 

REP 

6 

LAST 

614 

31.2362 

31.2363 

77650 1 

01150 1 

GOTO 

POINTEX 


USER«S PACE NO. 64 E5 S3 
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L P20-P25 


~V 


P2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 
2728. 

2729 

2730 

2731 

2732 

2733 

2734 
273405 

27341 

27342 
27344 

2735 

27351 

27352 

27353 

27354 

27355 

27356 

27357 

2736 

2737 


REP 

2 

LAST 

119 

REP 

1 



REP 

2 

LAST 

119 

REP 

3 

LAST 

616 

REP 

2 

LAST 

87 

REP 

2 

LAST 

616 

REP 

1 



REP 

2 

LAST 

119 

REP 

3 

LAST 

616 

REP 

4 

LAST 

616 

REF 

3 

LAST 

616 

REP 

17 

LAST 

605 

REP 

16 

LAST 

597 

REP 

18 

LAST 

616 

REF 

19 

LAST 

616 

REP 

17 

LAST 

616 

REP 

1 



REP 

63 

LAST 

561 

REP 

2 

LAST 

613 

REP 

64 

LAST 

616 


<:ou ijuai' oil 
REP 122 LAST 614 

REP 2 LAST 561 


31.2364 

31.2365 

31.2366 

31.2367 

31.2370 

31.2371 
31.23T2 

31.2373 

31.2374 

31.2375 

31.2376 

31.2377 

31.2400 

31.2401 

31.2402 

31.2403 

31.2404 

31.2405 
31,2408 
31,2407 

31.2410 

31.2411 

31.2412 

31.2413 

31.2414 

31.2415 

31.2416 

31.2417 

31.2420 

31.2421 

31.2422 

31.2423 

31.2424 

31.2425 

31.2426 

31.2427 

31.2430 

31.2431 

31.2432 

31.2433 

31.2434 

31.2435 

31.2436 

31.2437 

31.2440 

31.2441 

31.2442 

31.2443 

31.2444 


41456 
77775 
00043 
24037 
03635 
54361 1 
23030 0 
20620 

77655 

77656 
27643 
03635 
52342 
02141 1 
54361 
23030 
20616 
53455 
02617 
03651 
72441 
03643 
77208 
03643 
57561 
53372 
03651 
77656 
275 0 2 
15332 1 
03510 0 
17516 0 
00001 0 
57526 1 
71206 0 
15332 1 
77776 1 

3 3041 1 
54 001 1 
3 1754 0 
0 0006 1 
20 001 1 
54 154 0 
0 6006 1 
67208 1 
01343 1 
77621 1 
43242 1 
41215 1 


1 

0 

1 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

1 

0 


R23.5S 


VAD 

STORE 

DOT 

PUS! 

VXSC 

VSLl 

UNIT 

STCVL 

STORE 

STCDL 

ACOS 

PUSI 

EXIT 

CA 

TS 

CA 

EXTEND 

MSU 

TS 

TC 

PUSH 

BDSU 
SR3 
DAD 
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UNIT 

PUS! 

RCLL is IN MPAC 

VLOAD 


34D 

RCLL * RCLL 

STCVL 

30D 

PUSH 30-31 =RCLL*RCLL 

VXSC 

VZC 

VSR 


VAD 

CNE/C 

15D 

PUS! UP RCLL(UNIT) 

UNIT 

STCVL 

lClstar 


VSR2 

VZC 

VSU 


VXSC 

VBSO 

VSR 



atet/c 

13P 

UNIT 

US 

USSTAR 

SLl 

UCLSTAR 

VLOAD 

IJCLSTAR 

VCCMP 

VAD 

USSTAR 

BVECTQR 
ZERO/ECS 
BvECTOR *6 
BVECTOR +12D 
0 

DCCMP 

DLQ4D 

ZEROVECS 

VARSUBL 

L 

TOUNICN 

L 

MPAC 

INTPRET 

SLOAD 

TRJNBIAS 


PD 0,1 = USSTARCDOTHJCLSWR 


USSTAR _ COSOtUCLSWR 




DAD 

DMP 


PUT PIXED INTO ERA SABI JS FOR MSU 
INSTHUCTICN CCMING UP 
REQUIRED TO CHANGE 2’s COMPLEMENT 
THJNICN TO l’S COMPLEMENT 
m*IICN<2«S>-00000 CONVERTS THUNICN TO 

l’s. varsubl=ooooo 

PUSH IS DP. WHEN BDSU IS EXECUTED, 2ND 
HALF OF PUSH, 1ST IS GUARANTEED ZERO FROM 
DLOAD ZEROVECS ABOVE 



CP A OC PROGRAM COLOSSUS BY NASA 2021111-041 
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2738 

REP 

1 


2739 

2748 

2741 

REP 

2 

LAST 

2742 

2743 

REP 

17 

LAST 

2744 

REP 

1 


2745 

HEP 

4 

LAST 

2746 

2747 

2748 

HEP 

1 


2749 

HEP 

2 

LAST 

27491 

27492 

HEP 

2 

LAST 

2750 

HEP 

11 

LAST 

2751 

2752 

HEP 

7 

LAST 

2753 

HEP 

3 

LAST 

27531 

27532 

HEP 

17 

LAST 

2754 

2755 

HEP 

10 

LAST 

2756 

2757 

REP 

18 

LAST 

2758 

REP 

1 


2759 

REF 

11 

LAST 

2760 

HEP 

11 

LAST 

2761 

2762 

2763 

REP 

19 

LAST 

2764 

REP 

1 


2765 

REP 

12 

LAST 

2766 

2787 

REF 

. 1 


2768 

REP 

153 

LAST 

2769 

HEP 

10 

LAST 

2770 

REP 

1 


2771 

REP 

1 


2772 

HEP 

1 


2773 

REP 

21 

LAST 

2774 

REP 

12 

LAST 

27741 

HEP 

38 

LAST 

27742 

2775 

REP 

77 

LAST 

2776 

REP 

123 

LAST 

2777 

2778 

REP 

12 

LAST 

2TT9 

REP 

3 

IAST 

2780 

2781 

REP 

32 

LAST 



31,2445 

23036 0 


31,2446 

00041 1 


31,2447 

52405 1 

586 

31,2450 

07107 0 


31,2451 

62414 1 

600 

31,2452 

04343 1 


31,2453 

62454 0 

573 

31,2454 

17524 1 


31,2455 

00037 0 


31,2456 

47005 1 


31,2457 

23045 1 

572 

31,2460 

45562 1 


31,2461 

77771 0 

616 

31,2482 

23042 0 

596 

31,2463 

03526 0 


31,2464 

45014 0 

596 

31,2465 

02666 0 

596 

31,2468 

75250 1 


31.246T 

77624 1 

604 

31,2470 

56741 0 


31,2471 

51575 1 

605 

31,2472 

01285 1 


31,2473 

60414 0 

617 

31,2474 

04343 1 


31,2475 

62476 0 

597 

31,2476 

27504 0 

617 

31,2477 

0 1 257 0 


31,2500 

77648 0 


31,2501 

80414 0 

617 

31,25 02 

04343 1 


31,2503 

62504 1 

617 

31,2504 

03502 0 


31,2505 

777T6 1 


31,2506 

3 3046 0 

613 

31,2507 

0 4555 0 

597 

31,2510 

20763 1 


31,2511 

0 2506 0 


31,2512 

0 2521 0 


31,2513 

0 2047 0 

597 

31,2514 

3 4710 0 

597 

31,2515 

0 5415 1 

614 

31,2516 

0 5301 0 


31,2517 

00012 1 

597 

31,2520 

0 5112 0 

616 

31,2521 

0 6006 1 


31,2522 

45014 0 

598 

31,2523 

00467 1 

597 

31,2524 

75462 0 


31,2525 

77776 1 

613 

31,2528 

0 4106 1 




TRUN19 

320 


DMP 

£,3 

PI/4.0 


BCFP 

SL2 

CMOCNFLG 

R23.51 

R23.51 

STCDL 

DELTAQ 

30D 


DMP 

RTB 

trunvar 

TPMCDE 


TAD 

VARSLEL 


STORE 

VARIANCE 


CLEAR 

CALL 

DM3<FLG 

INCORPl 


CALL 

GRP2PC 


VLCAD 

ABVAL 
DELXAX +6 


BOP 

SR2 

CMOCNFLG 



R23.52 

RZ3.52 

STOVL 

N49DISP +2 
DELTAX 


ABvAL 

BOP 

SR2 

CMOCNFLG 

R23-53 

R23.53 

STORE 

EXIT 

N 49 DISP 

R23.6 

CAP 

V6N49 

TC 

BANKCALL 


CADR 

GOPLASHR 


TC 

R23-6 


TC 

R23.T 


TC 

P23-00 


CAP 

BIT3 


TC 

blanket 


TC 

PKASCHNG 


OCT 

00012 


TC 

erooFJCB 

R23.7 

TC 

INTPRPT 

R23.8 

SET 

CALL 

VEHUPFU3 

INCORP2 


EXIT 


R23.END 

TC 

GOTOPOOH 


ROLL * ROLL 


DISPLAY IS 2-27 IP IN LUNAR SPHERE 


DCNT ALLOW 
INCORPORATE DATA 
RECYCLE FOR ANOTHER MARC 
BLANK CUT R3 
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RBP V 1 
REP 1 


REP g LAST 544 
REP 2 LAST 810 


REP 4 LAST 615 
RHP 2 LAST Hg 


REP 3 LAST 618 


2798 

2799 

RHP 

4 

LAST 

618 

2800 

RHP 

3 

LAST 

618 

2801 

2802 

REP 

2 

LAST 

119 

2803 

2804 

2805 

REP 

HEP 

13 

1 

LAST 

811 

2808 

2807 

2808 
2809 

HEP 

REP 

RHP 

7 

1 

1 

LAST 

599 

2810 

2811 

REP 

1 



2812 

2813 

REP 

2 

LAST 

618 

2814 

HEP 

5 

LAST 

818 

2815 

2816 

REP 

4 

LAST 

618 

2817 

2818 

REP 

3 

LAST 

818 

2819 

2820 
2821 
2822 

HEP 

5 

LAST 

618 


261 LAST 616 


I 


31,2527 

31.2530 

31.2531 

31.2532 

31.2533 

31.2534 

31.2535 
31,2538 
31,2537 

31.2540 

31.2541 

31.2542 

31.2543 

31.2544 

31.2545 

31.2546 

31 . 2547 

31.2550 

31.2551 

31.2552 
31,255 3 

31.2554 

31.2555 

31.2556 

31.2557 

31.2560 

31.2561 

31.2562 

31.2563 

31.2564 

31.2565 

31.2566 

31.2567 

31.2570 

31.2571 

31.2572 

31.2573 

31.2574 

31.2575 

31.2576 

31.2577 
31,2800 

31.2601 

31.2602 

31.2603 

31.2604 

31.2605 
31,2608 
31,2607 
31,2610 


40220 0 HORIZ 
03672 1 
00001 0 
65345 0 
01714 1 
01718 0 
63325 0 


15340 1 
02817 0 
53435 0 
03827 1 
27821 1 
53435 0 
03821 1 
27605 1 
03621 1 
53435 0 
03805 1 
03613 0 
50214 0 
01703 1 
6275 2 0 
00001 0 
36156 0 
26437 0 
65215 1 
0 1 35 5 0 
23032 1 
41415 1 
01355 0 

64375 1 HORIZ. 1 


03827 1 
03605 1 
63372 1 
02817 0 
76521 0 
03605 1 
77725 1 
00003 1 
14043 0 
00005 1 
77624 1 
62756 1 
41257 1 
20611 0 
00155 0 
14037 0 
00001 0 
14043 0 
00007 0 


ffiTPD 

SHBElURN 

0 

1 POOL 
-AYO 
AXO 
PIVL 

DPPOS44X 

US 

UNIT 

RZC 

• UBAR2 
UNIT 
UBAR2 

ubaro 

UBAR2 

INIT 

UBARo 

URARl 

DOT 

UJNAPLAO 
HORIZ. 6 
0 

j ALFHAv +4 
QETERAD 
POOL 

HORIZALT 

AEARIH 

PUSH 

HORIZALT 

MXV 

RZC 

UBARO 

PDVL 

US 

VSLi 

UBARO 


STCDL 34U 

4 

CALL 


Divroe 
SR* DMP 
6D,i 
MPAC 

STCDL 30D 


STCDL 34D 

6 


PUSf 0-1 = -AYO SCALED Bo 


PUSH 2-3 = +AX SCALED Bo 


LBARi DOT UZ 


MPAC HAS RADIUS CP PISHER SLLIPSOID 
PUSf 0-1 = BH SCALED B29 


PUSH 2-3 = AH B 29 




PUSH 4-9 = HH(XH,YH,ZH> B 29 


PUSH 10-15 = UST Bi 
AH 


NOW SCAJPD B 9 




I 
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2633 





31,2811 

77624 1 

CALL 



2834 

REP 

2 

LAST 

618 

31,2612 

62756 1 


DIVIDE 


2835 





31,2813 

41257 1 

SR* 

DMP 

B9 

2836 





31,2614 

20611 0 


8D,1 

283T 

REP 

262 

LAST 

618 

31,2615 

00155 0 


MPAC 

Bl8 

2838 





31,2616 

41415 1 

DAD 

PUSL 

PUSH 16-17 =A SCALE! 

2839 





31,2617 

00037 0 


30D 


2840 





31,2820 

75425 0 

DSU 

SORT 


2841 

REP 

1 



31,2821 

23040 1 


1.0B18 

PUSH 18-19 SQRT(A-l) 

2842 





31,26 22 

77725 1 

POOL 


2843 





31,26 23 

00021 1 


16° 


2844 





31,2624 

14043 0 

STODL 

34D 


2845 





31,2825 

00005 1 


4 

XH 

2846 





31,2626 

77624 1 

CALL 



284T 

REP 

3 

LAST 

819 

31,2627 

62756 1 


DIVIDE 


2848 





31,2630 

65257 1 

SR* 

POOL 


2849 





31,2631 

20622 0 


170,1 

PUSH 20-21 = XH/A B 29 

2850 





31,26 32 

00007 0 

CALL 

6 

YH 

2851 





31,2633 

77624 1 



2852 

REP 

4 

LAST 

619 

31,2834 

62756 1 


DIVIDE 


2853 





31,2635 

65257 1 

SR* 

POOL 


2854 





31,2836 

206 22 0 


17D.1 

PUSH 22-23 = TH/A B 29 

2855 





31,2637 

00021 1 


16D 

A 

2856 





31,2640 

14043 0 

STODL, 

34D 


285? 





31,2641 

00023 0 


18D 

SQRT(A-l) 

2858 





31,2642 

77624 1 

CALL 



2859 

REP 

5 

LAST 

619 

31,2843 

62758 1 


DIVIDE 


2860 





31,2844 

77657 0 

SR* 



2861 





31,2645 

20611 0 


8D,1 


2862 





31,2846 

14035 1 

STODL 

2BD 


2863 





31,2847 

00001 0 


0 

BH 

2864 





31,2850 

14043 0 

STCDL 

34D 


2865 





31,2851 

00003 1 


2 

AH 

2866 





31,2852 

77624 1 

CALL 



286T 

REP 

6 

LAST 

619 

31,2853 

62756 1 


DIVIDE 


2868 





31,2654 

41257 1 

SR* 

DMP 

AH/BH SCALED Bi 

2869 





31,2655 

20601 1 


0,1 


2870 





31,2856 

00035 1 


28D 

SQRTCA-1 ) /A 

28T1 





31,2857 

72405 0 

DMP 

SLl 


2872 





31,2660 

00007 0 


6 

YH 

2873 





31,2861 

77725 1 

POOL 



2874 





31,2662 

00003 1 


2 

AH 

2875 





31,2863 

14043 0 

STCDL 

34D 


2876 





31,2664 

00001 0 


0 


2877 





31,2665 

77624 1 

CALL 



2878 

REP 

7 

LAST 

619 

31,2666 

62756 1 


DIVIDE 


2879 





31,2667 

41257 1 

SR* 

DMP 

bh/ah scaied bi 

2880 





31,2670 

20601 1 


0,1 


2881 





31,2671 

00035 1 


2&D 

SORT (A-ll/A 

2882 





31,287 2 

72405 0 

DMP 

SLl 
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2883 

2884 

2885 
2888 
288T 
2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 
289T 

2898 

2899 REP 

2900 

2901 

2902 

2903 

2904 

2905 

2906 
~\ 290T 

j 2908 

2909 

2910 

2911 

2912 

2913 REP 

2914 

2915 REP 

2916 REP 
2911 

2918 

2919 RHP 

2920 

2921 HEP 

2922 HEP 

2923 REP 

2924 

2925 

2926 

2927 REP 

2928 

2929 REP 

2930 

2931 REP 

2932 


18 LAST 


LAST 620 
LAST 620 


6 LAST 618 
2 LAST 618 
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31,2873 

00005 1 


4 

XH 

31,2674 

43325 1 

POOL 

DAD 


31,2875 

00025 0 


20D 

XH/A 

31,2678 

00031 0 


24D 

alpha 

31,2877 

45325 1 

POOL 

DSU 


31,2700 

00027 1 


22D 

YH/A 

31,2701 

00033 1 


26D 

BETA 

31,2702 

40208 1 

PUS! 

setpd 


31,2703 

00021 1 


ieD 


31,2704 

45345 1 

DLOAD 

DSU 


31,2705 

00025 0 


20D 

XH/A 

31,2706 

00031 0 


24D 

ALPHA 

31,2707 

43325 1 

POOL 

DAD 


31,2710 

00027 1 


22D 

YH/A 

31,2711 

00033 1 


26D 

BEIA 

31,2712 

41525 0 

POOL 

PUS! 


31,2713 

15332 1 


ZERCVECs 


31,2714 

24041 1 

STCVL 

320 

ZERO THIRD CCMP. OF T-l 

31,2715 

0 0 0 35 1 


280 


31,2716 

53451 1 

VSU 

UNIT 


31,2717 

00005 1 


4 

m VECTOR 

31,2720 

63241 0 

DOT 

FDVL 

PUS! 22-23 A-SUB-ZERO 

31,2721 

00013 0 


10D 

USH VECTOR 

31,2722 

00021 1 


1«D 

Tl VECTOR 

31,2723 

53451 1 

vsu 

unit 


31,2724 

00005 1 


4 

HH VECTOR 

31,2725 

41441 0 

DOT 

PUSH 

PUSH 24-25 A-SUfl-OIE 

31,2726 

00013 0 


10D 


31,2727 

50021 1 

BDSU 



31,2730 

00027 1 


220 

A-SUfl-ZERO 

31,2731 

82740 0 


HQRIZ.3 


31,2732 

77814 1 

Bar 



31,2733 

00304 0 


NORFHOR 


31,2734 

82744 1 


HORIz.4 


31,2735 

52175 0 HORIZ.2 

VLOAD 

goto 


31,2736 

00035 1 


28 D 

T-0 VECTOR 

31,2737 

62748 0 


HORIZ.5 


31,2740 

52014 0 HORIz.3 

Bar 

GOTO 


31,2741 

00304 0 


NORFHOR 


31,2742 

82735 1 


HORIZ.z 


31,2743 

62744 1 


HORIZ.4 


31,2744 

77775 1 HORIZ.4 

VLOAD 



31,2745 

00021 1 


160 

Tl VECTOR 

31,2746 

76505 0 HORIZ.5 

VXM 

VSLl 


31,2747 

03605 1 


URARO 


31,2750 

77650 1 

GOTO 



31,2751 

03672 1 


SRRETURN 


31,2752 

41545 0 HORIZ.6 

DLOID 

PUSI 


31,2753 

23034 1 


RADMoar 


31,2754 

52006 0 

PUSH 

GOTO 









I 
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2933 

RBP 

1 



31,2755 

62565 

0 



HCBIZ.l 


2934 





31,2756 

70501 

1 

DIVIDE 

NOEW 

131 


2935 

REP 

24 

LAST 

$96 

31,2757 

00047 

1 



XI 


2936 





31,2760 

14045 

0 


STODL 

30> 


293T 





31,2761 

00043 

0 



340 


2938 





31,2762 

55301 

0 


NOfW 

raw 


2939 

HEP 

16 

LAST 

604 

31,2763 

00051 

0 



31 


2940 





31,2764 

00045 

0 



3SD 


2941 





31,2765 

43460 

1 


X9U,1 

(HO 


2942 

REP 

17 

LAST 

621 

31,2766 

00050 

1 



31 


2943 





31,2767 

77014 

1 

RECT.l 

BCFP 

AXT.2 

SR TO SET Z4EASURE = 0 IP f«ASURESENT 

2944 

REP 

20 

LAST 

617 

31,2770 

04343 

1 



OWtKPLQ 

PLANET AND PRIM4RV PLANET ARE THE SAME 

2945 

HEP 

1 



31,2771 

63001 

0 



BBCT.3 

OTHERWISE = 1 

2946 





31,2772 

77775 

1 


DEC 

-2 


294T 





31,2773 

77614 

1 


BCFP 


VBC. AND SCALE B 29 AND B 7 

2948 

HEP 

14 

LAST 

618 

31,2774 

01743 

0 



UKWIAQ 


2949 

REP 

1 



31,2775 

83005 

1 



6CCT_4 


2950 





31,2776 

52014 

0 

RECT.2 

CLEAR 

omo 


2951 

REP 

2 

LAST 

614 

31,2777 

00265 

0 



»«S»SURE 


2952 

REP 

1 



31,3000 

63007 

0 



■rr.5 


2953 





31,3001 

43174 

1 

RECT.3 

AXT.2 

BUFF 


2954 





31,3002 

00000 

1 



6 


2955 

REP 

15 

LAST 

621 

31,3003 

01743 

0 



IMMPLAO 


2956 

REF 

1 



31,3004 

62776 

0 



(BCT-2 


2957 





31,3005 

77814 

1 

RECT.4 

set 



2958 

REP 

3 

LAST 

621 

31,3006 

00065 

1 



»wsuhe 


2959 





31,3007 

44575 

0 

RECT.5 

VLOVD 

vssi 


2960 . 

REP 

3 

LAST 

600 

31,3010 

01573 

1 



na*»cs4 

SCAI.ED B22 OR Bib 

2961 





31,3011 

53257 

1 


VSR* 

vm 


2962 





31,3012 

57176 

0 



M 


2963 

REP 

3 

LAST 

600 

31,3013 

01807 

1 



IXVCS4 

SCALH) B 29 OR B 27 

2964 





31,3014 

77657 

0 


vat* 



2965 





31,3015 

57176 

0 



1,2 


2966 

REP 

6 

LAST 

618 

31,3016 

276 27 

1 


STCVL 

RZP 

NOW SCALED B 29 

2967 

REP 

1 



31,3017 

01601 

1 



KJKCS* 

SCALED B 3 OR B-i 

2968 





31,3020 

53702 

1 


VSR4 

VSR* 


2969 





31,3021 

57176 

0 



•,2 


2970 





31,3022 

53655 

1 


VAD 

VSR* 


2971 

REP 

1 



31,3023 

01615 

1 



*CWS4 

SCALED B 7 OR B 5 

2972 





31,3024 

57176 

0 



6,2 


2973 

REP 

4 

LAST 

616 

31,3025 

036 35 

1 


STORE 

VZP 

NOW SCALED B 7 

2974 





31,3028 

77616 

0 


RVQ 



2975 





31,3027 

26305 

0 

OJE/C 

2 DEC* 

-333564049 E -6 

B-f- 21 * 

2975 





31,3030 

05432 

1 





2977 





31,3031 

00302 

0 

AEAR7H 

2 DBC 

6378166 B-29 

A AXIS OP EARTH! MEIERS B-29) 

2977 





31,3032 

24533 

1 





2978 





31,3033 

00065 

1 

RADMOCN 

2 DEC 

1T3S390 B -29 

RADIOS OP MOCN IN MEIERS 

2978 





31,3034 

01265 

1 





2979 





31,3035 

01604 

1 

TRUNig 

OCT 

01634 


29791 





31,3038 

00000 

1 

TRUN19A 

OCT 

83333 
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2980 

2980 

29805 
298055 
298055 

29806 
29806 

2981 

2982 

2983 

2984 

2985 

2986 
298T 
2988 

2988 

2989 

2989 

2990 

2990 

2991 REP 

2992 

2994 

2995 
2998 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 
30 OS 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3016 

3017 

3018 

3019 
5000 
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REP 

5 

LAST 

614 

REP 

1 



REP 

6 

LAST 

604 

REP 

263 

LAST 

619 

REP 

2 

LAST 

557 

REP 

2 

LAST 

550 

REP 

2 

LAST 

550 

REP 

0 

LAST 

558 

REP 

1 



REP 

1 



REP 

1 



REP 

3 

LAST 

369 

REP 

4 

LAST 

208 

REP 

2 

LAST 

230 

REP 

1 



REP 

1 




31,3037 

00000 1 

l.OBlg 

2 DEC 

1.0 B -10 

31,3040 

02000 0 




31,3041 

00000 1 

varsjbl dec 

0 

31,3042 

01505 0 

VARSBL 3 2 DEC* 3.4299040 E+a 

31,3043 

14100 0 




31,3044 

00012 1 

TRLNVAR 2 DEC 

2.5 E-9 B+ia 

31,3045 

27482 1 




31,3046 

01461 0 

V6N49 

VS 

0649 

31,3047 

01531 1 

V6N89 

VS 

0889 

31,3050 

01306 0 

V05N70 

VN 

0570 

31,3051 

01307 1 

V05N71 

VS 

0571 

31,3052 

00077 1 

CJCT00077 OCT 

00077 

31,3053 

00202 1 

V50N2SP 

OCT 

00202 

31,3054 

00008 1 

SPSIX 

OCT 

00006 

31,3055 

10461 0 

JCAXIS 

2 DBC 

.268649805 

31,3058 

21675 0 




31,3057 

00000 1 


2 DGC 

0 

31,3060 

00000 1 




31,3081 

15375 1 


2 DEC 

.421695725 

31,3062 

02004 1 




31,3063 

62217 1 

R80ADRS 

CADR 

H80CALL +3 

31,3064 

77735 0 

LUNLUCLD SLOAD 


31,3085 

02754 0 



IDOFU-K 

31,3066 

45230 1 


BHIZ 

DSU 

31,3067 

63101 1 



LN1AKEND 

31,3070 

21646 0 



904 ID 

31,3071 

70152 0 


SLl 

LXC .1 

31,3072 

00154 1 



MPAC 

31,3073 

64743 0 


OLOAD* POOL* 

31 , 3074 

23705 1 



ALTDAJB ,1 

31,3075 

238 23 1 



LCNGTAB.i 

31,3076 

55523 0 


POOL* 

VDEP 

31.30TT 

23541 0 



LATOABi 

31,3100 

01104 0 


STORE 

LAT 

31,3101 

77616 0 

LNUKETO RVQ 


14,2000 



SEILOC 

RT53 

14,2000 



BANK 


14,2000 

43573 1 

L08MEMRY VLGAD* RVQ 

14,2001 

31744 1 



CATLOG.l 

4550 



block 

02 

4550 

0 0006 1 

GOTCV56 

extend 


4551 

3 4554 1 


DCA 

VB 56 CADR 

4552 

1 5122 1 


TCP 

SUPDXCHZ 

87,1777 



ebank= 

WHOCARES 

4553 

02637 1 

VB 56 CADR 

2 CADR 

TRACKTRM 

4554 

66107 1 




4000 



SBTLOC PPWG 2 

4555 



BANK 





COUNT* SJ/P20 

40,3574 



BANK 

40 


track axis 




P20 TERMINATES BY GOTCV56 INSTEAD OP 
OOTOPOCH 
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5001 


1 



40,3574 




S8TL0C HTOPINSl 

5002 





40,3574 




HA.-qc 


5003 

pfty 

1 







COUNT* 

IJ/EXTVB 

5004 

0gp 

124 

LAST 

61T 

40,3574 

0 6006 

1 

V67CALL 

TC 

INTPRET 

5005 





40,3575 

77624 

1 


CALL 


5000 

jjgp 

1 



40,3576 

61656 

0 



V 6 TWW 

500T 





40,3577 

77776 

1 


EXIT 


5008 


1 



40,3600 

3 3732 

1 

voftNggDS CAP 

VO 6 N 99 A 

5009 

IW 154 

LAST 

61T 

40,3801 

0 4555 

0 


TC 

bankcall 

5010 

0F 

12 

LAST 

510 

40,3602 

20465 

1 


CADR 

QCXDSPE 

5011 

V 

29 

LAST 

609 

40,3603 

1 5423 

0 


TCP 

ENDEXT 

5012 

«E 

1 



40,3804 

0 3810 

0 


TC 

V06N9933 

5013 

ggp 

31 

LAST 

609 

40,3605 

0 5435 

0 


TC 

UPPLAG 

5014 


1 



40,3606 

00210 

1 


AMES 

V67FLAG 

5015 

ggp 

1 



40,3807 

0 3600 

1 


TC 

VO 6 N 99 DS 

5010 

rwt 

125 

LAST 

623 

40,3610 

0 6006 

1 

VO0N9933 

INTPRET 

501T 





40,3611 

77414 

0 


BQ4 

EXIT 

5018 

CP 

2 

LAST 

623 

40,3612 

04701 

0 



V67PLAG 

5019 





40,3613 

61615 

1 



♦2 

5020 

w 

39 

LAST 

623 

40,3614 

m 

PO 

Nf 

lO 

iH 

0 


TCP 

ENDEXT 

5021 





40,3615 

41345 

0 


DLOAD 

CMP 

5022 

BEK 

2 

LAST 

278 

40,3816 

02321 

0 



•wpos 

5023 

BEK 

1 



40,3617 

21734 

1 



1/SORT3 

5025 





40,3620 

71350 

1 


UCA.l 

DLOAD 

5020 

HP 

294 

LAST 

622 

40,3621 

00154 

1 



MPAC 

5027 

WK 

2 

LAST 

278 

40,3622 

02323 

1 



WWVEL 

5028 





40,3823 

73005 

0 


CMP 

LXA.2 

5029 

BK 

2 

LAST 

623 

40,3624 

21734 

1 



1/SQRT3 

5030 

BK 265 

LAST 

823 

40,3625 

00154 

1 



MPAC 

5036 





40,3828 

45335 

0 


SLOW 

DSU 

5037 

BEK 

2 

LAST 

278 

40.362T 

02325 

1 



BWOPT 

5038 

BEK 

1 



40,3830 

21736 

0 



V 67 DEC 2 

5039 





40,3831 

51030 

0 


bhiz 

BPL 

5040 

BP 

1 



40,38 32 

61641 

0 



V67W0RB 

5041 

BEK 

1 



40,3633 

81646 

1 



V67WMID 

5043 





40,3634 

67130 

1 


SXA.l 

SXA.2 

5044 

W 

2 

LAST 

570 

•40,3635 

02000 

0 



WRENDPOS 

5045 

BEK 

1 



40,3636 

02001 

1 



WRBffVEL 

5040 





40,3637 

77650 

1 


GOTO 


5047 

BEK 

1 



40,3640 

61651 

1 



vbtExitx 

5048 





40,3841 

67130 

1 

V67WORB 

SXA,1 

SXA,2 

5049 

BEK 

2 

LAST 

591 

40,3642 

02004 

1 



worrpos 

5050 

HP 

2 

LAST 

591 

40,3643 

02005 

0 



WORBvEL 

5051 





40,3644 

77650 

1 


GOTO 


5052 

BEK 

2 

LAST 

623 

40,3845 

61651 

1 



vbtExitx 

5053 





40,3646 

67.130 

1 

V87WMID 

SXA.l 

SXA,2 

5054 

BEK 

2 

LAST 

614 

40,3847 

03000 

1 



bmidpos 

5055 

BEK 

1 



40,3850 

03001 

0 



WMIDvEL 

5056 





40,3651 

43014 

0 

V67BXITX CLEAR 

ClEAR 

5057 

BEK 

11 

LAST 

614 

40,3652 

01671 

0 



ORBWFLAG 


20 ’35 OCT. 29.186# PANDORA .080 
R9SWS PAOE NO. 72 B5 S3 


PAGE 

iA 3 
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USER«S PAGE NO. 73 ■ R 3 54 


5058 

5059 
SOSO 

5061 

5062 

5063 

5064 

5065 

5066 
506T 

5068 

5069 
50T0 
50T1 

5072 
50721 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 
\ 5081 

/ 5082 ' 

5083 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 


US' 9 LAST 613 

HHP 31 LAST 623 

WE 6 LAST 600 

»E 3 LAST 623 
WE it LAST 595 

WE last #21 

HEP 19 LAST 620 
BPS' 3 LAST 623 
WE 3 LAST 623 
HEP 3 LAST 623 


HEP 55 LAST 610 


REP 

REP 


4 LAST 624 

5 LAST 624 


REP 56 LAST 624 


REP 

FEE 

REP 

REP 


4 LAST 624 

5 LAST 624 


6 LAST 624 
6 LAST 624 


REP T LAST 624 


REP 


HEP 


9 LAST 618 
8 LAST 624 
7 [AST 624 


REP 9 LAST 624 
REP 12 LAST 557 

REP 39 LAST 578 
REP 2 LAST 259 
REP 11 (AST 496 
REP T LAST 497 
REP 12 LAST 497 


40,3653 

02676 1 


HBffWFLO 

40,3854 

77778 1 

EXIT 


40,3855 

1 5423 0 

TCP 

B®BXT 

40,3856 

40020 1 V67RR 

STO 

BOV 

40,3857 

00051 0 


52 

40,3860 

61661 1 


♦1 

40,3861 

45014 0 

CLEAR CALL 

40,3862 

04661 1 


V67FLAO 

40,3883 

27371 1 


INTSTALL 

40,3864 

71331 0 

SSP 

DLOAD 

40,3885 

00051 0 


Si 

40,3868 

00008 1 

dec 

6 

40,3887 

15332 1 


ZBROVBCS 

40,3370 

02321 0 

STORE 

WWPOS 

40,3671 

02323 1 

STORB 

ravel 

40,3872 

02325 1 

STORE 

RWOPT 

40,3873 

77770 1 

*XT,1 


40,3874 

00044 1 

DEC 

36 

40,3875 

47573 0 NXPQSVEL VUMD* VSO 

40,3876 

02445 0 


» +38D.1 

40,3677 

77615 0 

DAD 


40,3700 

02321 0 


rwpos 

40,3701 

02321 0 

STORB 

RAPOS 

40,3702 

47573 0 

VLOAD* VSO 

40,3703 

02533 0 


w +90D.1 

40,3704 

77815 0 

DAD 


40,3705 

02323 1 


PAVEL 

40,3706 

02323 1 

STORB 

RAVEL | 

40,3707 

75500 0 

TIX.l 

SORT \ 

40,3710 

81875 1 


NXPOSVEL 

40,3711 

16323 1 

STCDL 

RAVEL 

40,3712 

02321 0 


RAPOS 

40,3713 

77768 0 

SORT 


40,3714 

02321 0 

STORE 

RAPOS 

40,3715 

52000 0 

BOV 

GOTO 

40,3716 

61720 0 


♦2 

40,3717 

61724 1 


V6TXXX 

40,3720 

77745 1 

DLOVD 


40,3721 

15340 1 


DPPOSHAx 

40,3722 

02321 0 

STORE 

WWPOS 

40,3723 

02323 1 

STORE 

RAVEL 

40,3724 

66150 0 V67XXX 

LXA.l 

SXA.i 

40,3725 

00051 0 


82 

40,3726 

00052 0 


OPRET 

40,3727 

77776 1 

EXIT 


40,3730 0 4574 0 

TC 

POST JIMP 

40,3731 

27406 0 

CADH 

IN1WAKE 

E4.1720 

WWPOS 

- 

RANGE 

E 4 , 1722 

HWEL. 

- 

RRATE 

E4.1724 

wwopt* 

— 

RTHETO 





ASSEMBLE REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 


20’35 OCT. 28,1968 PANDORA .080 PAOB 625 


I 

L P20-P2S 

40.3732 01543 1 

40.3733 22383 1 

40.3734 11620 0 

40.3735 00002 0 

40,3738 00000 1 


USER»S PACE NO. 74 K5 34 


V06N99A 

1/SQRT3 

VN 

2DGC 

0699 

0.5773502 

V67DBC2 

2DBC 

2 B-14 


5107 

5108 

5108 

5109 
5109 




L 


Assaeus revision 249 op aoc program colossus by nasa 2021111-041 

P30.P3T 






0001 


0002 REP 1 

0003 


0004 

HBP 

8 

LAST 

555 

0005 

REP 

1 



0006 





000T 

REP 

2 

LAST 

90 

0008 

REP 

2 

LAST 

4?3 

0009 

REP 

2 

LAST 

473 

0010 

REP 

155 

LAST 

623 

0011 

REP 

11 

LAST 

617 

0012 

REP 

33 

LAST 

617 

0013 

REP 

1 



0014 

REP 

1 



0015 

REP 

39 

LAST 

617 

0016 





001T 

REP 

?8 

LAST 

617 

0018 

HEP 

128 

LAST 

623 

0019 





0020 

REP 

1 



0021 

HEP 

3 

LAST 

626 

0022 





00221 

REP 

1 



00222 

REP 

32 

LAST 

623 

00223 

REP 

2 

LAST 

626 

00224 

REP 125 

LAST 

586 

00225 

REP 

1 



00226 





0022? 

REP 

T4 

I A ST 

608 

00228 

REP 

22 

LAST 

530 

00229 

REP 

27 

LAST 

522 

0023 

REP 

3 

LAST 

213 

0023 





00231 

REP 

n 

LAST 

610 

00232 





00233 





00234 





00235 

REP 

2 

LAST 

626 


32,201? 

35,2000 

35,3544 

ET.1625 


BANK 32 

SBTLOC P30S1 
BANK 

BBANK: *mda 
count 35/P34 


35,3544 

77420 1 

DISPMGA 

STQ 

EXIT 

35,3545 

02370 1 



BGEXIT 

35 , 3546 

0 3584 0 


TC 

CCMPTOO 

35,3547 

3 3132 1 

DISP45 

CAP 

V16N45 

35,3550 

0 4555 0 


TC 

BANkCALL 

35,3551 

20763 1 


CADR 

OOF7ASHR 

35,35 5 2 

0 4106 1 


1C 

GOTOPOCH 

35,3553 

0 3560 1 


TC 

END45 

35,3554 

0 354? 1 


TC 

DISP45 

35,3555 

0 5301 0 

P30PHSI 

TC 

FHASCHNG 

35,3556 

00014 1 


CCT 

14 

35,3557 

0 5112 0 


TCR 

ENDCFJCB 

35,3560 

0 6006 1 

END45 

TC 

INTPRBT 

35,3561 

52014 0 


CLEAR 

GOTO 

35,3562 

03664 0 



TIMRFIAG 

35,35 6 3 

02370 1 



RGExIT 

35,3564 

0 0006 1 

CCMPTGO 

Extend 


35,3565 

23«066 0 


QXCH 

FHSPRDIB 

35,3566 

0 5 435 0 


TC 

UPFLAG 

35,3567 

00155 0 


ADRES 

TIMRFIAG 

35,3570 

3 4714 1 


CAP 

zero 

35,3571 

55«145 1 


TS 

NVWORDi 

35,3572 

0 0004 0 


INHINT 


35,357 3 

3 4712 1 


CAP 

CNE 

35,35 74 

0 5140 1 


TC 

WAITLIST 

E7.1412 



BHANK= 

TIG 

35,3575 

03172 0 


2CADR 

clqciask 

35,3578 

50067 0 




35,3577 

0 5261 1 


TC 

2PHSCHNG 

35,3600 

40036 0 


OCT 

40036 

35,3601 

05024 1 


OCT 

05024 

35,3602 

13000 0 


OCT 

13000 

35,3603 

0 1066 0 


TC 

PHSPRDT6 


20*35 OCT. 28,1968 PANDORA .080 PAGE 628 
USBR«S PAGE NO. 1 E0 34 


USED IN P30 


USH5 TO COMPUTE TTOGO 

** GROUP 6 TEMPORARY USED , , BEWARE 4=4 

SET TIMRELAG 
BIT 11 FLAG T 



6.3SPOT FOR Cl.OCWSK 
GRCXJP 4 CONTINUES HERB 
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Li P30.P3T 

P00239 PROGRAM DESCRIPTION P30 DATE 3-6-67 

R00245 MOD. I BY S. ZELDIN- TO ADO P31 AND AD APT P30 FOR P31 USB. 22DEC6T 
R0025 FUNCTIONAL DESCRIPTION 

R0026 *30 (external dslta-v wrgethng program) 

R002T ACCEPTS ASTRONAUT INPUTS OF TIO.DELV(LV) AND COMPUTES, FOR DISPLAY, 

R0028 APOGEB,PERIGEE,DBLV(MAG),MGA ASSOCIATED WITH DESIRED MANEUVER 

R0029 P31 (GENERAL LAMBERT AIMPOINT GUIDANCE) 

R00291 A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND 
R00292 POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART 

R0030 RASED ON STORED INPUT OP OFFSET TAHGET(B+29) AND DELTA T TRANS, AND 

R0031 ASTRONAUT ENTRY CP TIG.P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER 

R0032 AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(tAG) ,+MGA ASSOCIATED WITH 

R0033 DESIRED MANEUVER 

R0034 THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31 

R0035 S30.1 (P30 CNLY) 

R0036 S31.1 <P3L ONLY) 

R003T P30/P3L - DISPLAYS TIG 

R0038 CNTUP30 - DISPLAYS DBLV(LV) 

R00381 PARAM30 - DISPLAYS APOGEE, PERIGEE, DELV(MAG) ,MGA,TI!“E FROM TIG, 

R00382 MARCS SINCE LAST THRUSTING MANEUVER 

R00383 CALLING SEQUENCE VIA JOB FROM V3T 

R00384 EXIT VIA V3T CALL OR GOTOPOOH 

R00385 OUTPUT FOR POWERED FLIGHT 

R003B6 VTIG X 

R0038T RTIG XSEE S30.1 

RO0388 DBLVSIN X 

R00389 VCDISP 

R003891 RTAHG X 

R003892 TPASS4 X SEE S3I.1 

R003893 X 

0039 BEP 1 CCXWT 35/P30 


USERocS PAOB NO. 2 


003901 

REF 

1 



35,3604 

0 36 36 

1 

003903 

REF 

1 



35,3605 

0 3655 

1 

003905 

REF 

35 

LAST 

012 

35,3606 

0 5447 

0 

003907 

REF 

15 

LAST 

576 

35,3607 

00027 

1 

003909 

REF 

127 

LAST 

626 

35,3610 

0 6006 

1 

003911 





35,3611 

77624 

1 

003913 

REF 

1 



35,3612 

63102 

1 

003915 





35,3613 

77776 

1 

003919 

REF 

1 



35,3614 

0 3665 

1 

003921 

REF 

33 

MST 

626 

35,3615 

0 5435 

0 


1C 

P30/P31 


1C 

CNTNUP30 


TC 

DOWNFLAG 

RESET UPDATFl-G 

ADRES 

UPDATEU3 

BIT 7 FI -AG 1 

TC 

INTPRET 


CALL 

S30.1 


EXIT 

TC 

PARAM30 


TC 

UPFIAG 



B7 S3 


I 


*SS»BLS REVISION 249 OP AOC PROGRAM COLOSSUS by NASA 2021111-041 
P30.P37 


003923 
0039 25 


3 LAST 520 
34 LAST 828 


003927 HEP 

2 

LAST 

027 

003929 REP 

36 

LAST 

627 

003931 REP 

16 

LAST 

627 

003932 REP 

37 

LAST 

628 

003933 REP 

3 

LAST 

480 

003934 REP 

128 

LAST 

627 

003935 




003937 RH' 

1 



003939 




003943 REP 

2 

LAST 

827 

003945 REP 

2 

LAST 

827 

003947 REP 

38 

LAST 

628 

003949 REP 

4 

LAST 

628 

003951 REP 

35 

LAST 

628 

00398 

HH> 

152 

LAST 

478 

00397 

REP 

1 



0040 

HEP 

34 

LAST 

627 

00405 

REF 

17 

LAST 

628 

0041 

REP 

35 

LAST 

628 

00415 

REP 

5 

LAST 

576 

0042 

REP 

1 



0043 

REP ; 

156 

LAST 

626 

0044 

HEP 

12 

LAST 

626 

0045 

REP 

36 

LAST 

628 

00467 

REP 

2 

LAST 

628 

0047 

REP 

3 

LAST 

628 

0048 

REP 

40 

LAST 

626 

0049 





0050 

REP 

79 

LAST 

826 

00501 

REP 153 

LAST 

628 

00502 

REP 

1 



0051 

REP 

2 

LAST 

472 

0052 

REP 157 

LAST 

628 

0053 

REP 

25 

LAST 

613 

0054 

REP 

37 

LAST 

628 

0055 

REP 

2 

LAST 

628 

0058 

REP 

3 

LAST 

628 

0087 

REP 154 

LAST 

628 

00675 

REP 

3 

LAST 

628 


HEP i 
HBP 158 
HEP 26 
HEP 38 
HEP l 


LAST 828 
LAST 628 
LAST 628 


35,3816 00045 0 

ADR0S XDELVFLQ 

35,3817 1 4106 0 

TCP 

OOTOPOCH 

35,3820 0 3836 1 P31 

1C 

P30/P31 

35,3621 0 5447 0 

TC 

dcwnflao 

35,3622 00027 1 

adrbs upoatplg 

35,3823 0 5447 0 

TC 

dcwnflao 

35,3824 00156 0 

ADRBS norms* 

35,3625 0 6006 1 

TC 

INTPfET 

35,3628 77624 1 

CALL, 


35,3827 63154 1 


331.1 

35,3630 77776 1 

EXIT 


35,3631 0 3855 1 

TC 

CNTNUP30 

35,3832 0 3665 1 

TC 

PARAM30 

35,3633 0 5447 0 

TC 

DCWNFLAO 

35,3634 00045 0 

ADRBS 

XDELVFLO 

35,3635 1 4106 0 

TCP 

GOTOPOCH 

35,3636 56 002 0 P30/P31 

XCH 

O 

35,3637 55«664 0 

TS 

P30/31RT 

35,3640 0 5435 0 

TC 

UPFLAO 

35,3641 00027 1 

adrbs 

UPQ4TFLO 

35,3642 0 5435 0 

TC 

UPFLAO 

35,3643 00031 0 

ADRBS 

TRACkPLG 

35,3644 3 3722 0 

CAP 

V06N33 

35,3645 0 4555 0 

TC 

BANkCAU, 

35,3646 20763 1 

CADR 

GOFLAam 

35,3647 1 4106 0 

TCP 

OOTOPOCH 

35,3650 0 1664 1 

TC 

P 30 / 31 RT 

35,3651 1 364 2 0 

TCP 

P30/P31 44 

35,3652 0 5301 0 

TC 

PHAsCHNG 

35,3653 00014 1 

OCT 

00014 

35,3654 0 5112 0 

TC 

B4DCPJ0B 

35,3655 56 002 0 CNTNUP30 XCH 

O 

35,3656 55«127 0 

TS 

P30/RET 

35,3657 3 3131 1 

CAP 

V06N81 

35,3660 0 4555 0 

TC 

HANKCALL 

35,3661 20624 0 

CADR 

GOPLAat 

35,36 6 2 1 4106 0 

TCP 

GOTOPOCH 

35,3663 0 1127 1 

TC 

P30/RET 

35,3664 1 3657 1 

TCP 

CNTNUP30 +2 

35,3665 56 002 0 PARAM30 

XCH 

O 

35,3668 55«684 0 

TS 

P30/31RT 

35,3887 3 3723 1 

CAP 

V06N42 

35,3670 0 4555 0 

TC 

BANKCALL 

35,3671 20624 0 

CADR 

goflash 

35,3672 0 4106 1 

TC 

GOTOPOCH 

35,3873 1 3675 1 

TCP 

RBPTEST 


20’35 OCT. 28,1968 PANDORA .080 PAOB . 


USBRxS PACE NO. 


®T XDBLVFLO BIT 8 PLAO 2 


RESET UPDATFLG BIT 7 PLAO i 
RESET NCKMSW BIT 10 PLAO ^ 


BIT 8 PLAO 2 


SET UPDATFLG BIT 7 FLAG l 


SET TRAOCFLO BIT 5 PLAO 1 
T CP IOJ 




ON TERMINATION GOTOPOCH 
ON PROCEED GO DO REFTEST 




I 


ASSB«LE REVISION 249 OP AQC PROGRAM COLOSSUS B * NASA 2021111-041 


20*35 OCT. 23,1968 PANDORA .080 PAGE 629 





00T3 

00T4 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 
00935 

0097 

0098 
A0099 

0100 

0102 

0103 

0104 


P30.P37 

REP 3 
REP 19 
REP 36 

REP 1 
REP 129 


REP 

REP 

REP 

REP 
REP 
REP 130 

REP 1 

REP 4 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 


LAST 

LAST 


628 

554 

578 


628 

520 

485 


628 

629 


LAST 628 


35,3674 

35,3875 

35 . 3676 

35.3677 

35.3700 

35.3701 

35.3702 

35.3703 

35.3704 

35.3705 
35,3708 
35,3707 

35.3710 

35.3711 

35 .3712 

35.3713 

35.3714 

35.3715 

35.3716 

35.3717 

35.3720 

35.3721 

35.3722 

35.3723 

35.3724 

35.3725 


1 3667 1 

3 4676 1 
7 0077 0 
0 0006 

1 3710 
0 6006 
41575 
03846 
77824 
10660 
77650 1 
73714 1 
0 0006 1 

4 3721 1 
53*626 0 


0 6006 1 


77624 1 
73544 0 
77776 1 
0 1664 1 
00000 1 
35100 0 


01441 1 
01452 0 
04043 1 
01455 1 



TCP 

PARAM 30 ♦ 

REPIE ST 

CAP 

BIT13 


MASK 

STATE *3 


EXTEND 

BZP 

NOTSET 


TC 

INTV RET 


VLQAD 

PUSH 

DELVSIN 


CALL 

get+mga 


GOTO 

PLA9WGA 

NOTSET 

EXTEND 

DCS 

MARS1P 


PXCH 

♦MGA 


TC 

INTPRET 

FLASHMGA 

CALL 

DISPMGA 


EXIT 



TC 

P30/31RT 

wasip 

OCT 

00000 


OCT 

35100 

V06N33 

VN 

0633 

V08N42 

VN 

0642 

V16N35 

VN 

1635 

V06N45 

VN 

0645 


USERxS PAGE NO. 4 B7 S3 

REPS4PLAG 

REPS4PLAG =0 , THEN BRANCH TO NOTSET 


+MGA, +MGA-fi CCNXAINS <-00001> 


<000001 <16440) = UOOOOl) 

< .01 1 DEGREES IN THE LQ» ORDER REGISIE 


/ 
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USSR«S PAGE NO. 5 Br S 3 

P0105 PROGRAM DESCRIPTION S30.1 DATE gNOV66 


R0106 

R0107 

B01075 

R0108 

R0109 

R0110 

Rom 

R 0112 

R 0113 

R0114 
R0115 
R0116 
ROUT 
R0118 
R0119 
R0120 
R0121 
R0122 
. R0123 
R0124 
R0125 
R0126 
R0127 
R0128 
R0129 
R0130 
R0131 
R0132 
R0133 
R0136 
R013T 
R0138 


NO 1 LOG SECTION P 3 0,P 3 7 

MOD BY RAMA AIYAWAfl ** 

MOD^ BY S.ZELDIN - TO CORRECT MCD.i FOR COLOSSUS 

PlNCriCNAL DESCRIPTION ^ussus 29DEC67 

So m" REa,Ifl ® W «W>S.(I*WSW> 

L CALL 

L+ 1 S30.1 

NORMAL Exit MODE 

at L+2 OR CALLING SEQUENCE (GOTO L»2) 

subroutines called 
thisprbc 
periapo 

alarm or abort exit modes 

NONE 

erasable initialization reouired 

TIG TIM3 OP IGNITION DP B?f(Cs 

DBLVSLV specified DELTO-V in local vert. 

OXXJRDS. OF ACTIVE VSIICLE at 

TI* OF IGNITION vCT. B +T M/C S 


OUTPUT 

RTIG POSITION 

VTIO VELOBITY 

HAPO APOGEE A 

HPEH PERIGEE , 

DELVSIN DELVSLV 

von isp mag. op i 

DEBRIS GIEMP TEMP. ERASABLE 
OPRET,MPAC 
PUSILIST 


POSITION AT TIG 
VELOBITY AT TIG 

apogee alt. 

PERIGEE ALT. 

DELVSLV IN REF COORDS 
MAO. OP DELVSIN 


B+TM/CS 

B+29M 

B*7M 

B+29M 

B+29M 

B+TM/CS 

B.-7M/CS 


REF 

1 



31,2000 


SBILOC 

P30S1A 





31,3102 


BANK 


REF 

1 





COUNT 

35/S30S 





31,3102 

71220 1 S30-1 

STO 

DLO \D 

REF 

4 

LAST 

548 

31,3103 

03657 0 


(HEMP 

REF 

2 8 

LAST 

6 26 

31,3104 

03413 1 


TIG 

REF 

32 

LAST 

598 

31,3105 

34041 0 

SlCALL 

TDECi 

REP 

5 

LAST 

508 

31,3108 

27022 1 


THISPREC 





31,3107 

67175 0 

VLOAD 

S&CA,2 

REP 

16 

LAST 

586 

31,3110 

00007 0 


VATT 

REF 

11 

LAST 

528 

31,3111 

03746 1 


RIX2 

REF 

2 

1AST 

121 

31,3112 

27640 0 

STOVL 

VTIG 


TIME ICNITICN SCAIFD AT 20+28>Cs 
ENCKE ROUTINE FOR 




I 
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•ISO 

REP 

20 

LAST 

586 

31,3113 

00001 

0 

•151 

REP 

3 

LAST 

121 

31,3114 

03632 

0 

•152 

REP 

25 

LAST 

54T 

31,3115 

03540 

0 

•153 





31,3110 

53435 

0 

•154 

REP 

3 

LAST 

030 

31,3117 

03640 

0 

•155 

REP 

9 

LAST 

4T1 

31,3120 

366 1 7 

1 

•150 

REP 

3 

LAST 

409 

31,3121 

T288T 

0 

•1ST 





31,3122 

81375 

1 

•ISO 

REP 

4 

LAST 

1T1 

31,3123 

03405 

0 

•159 





31,3124 

00001 

0 

•ISO 





31,3125 

66172 

0 

•1S1 

REP 

9 

LAST 

545 

31,3126 

03745 

1 

•102. 

REP 

T 

LAST 

029 

31,3127 

03646 

0 

•103 





31,3130 

T7646 

0 

•104 

RHP 

4 

LAST 

276 

31,3131 

27654 

0 

•105 

HEP 

4 

LAST 

031 

31,3132 

03632 

0 

•ISO 





31,3133 

53315 

0 

•1ST 

REP 

8 

LAST 

031 

31,3134 

03648 

0 

•ISO 

HEP 

4 

LAST 

031 

31,3135 

03640 

0 

•109 





31,3138 

77624 

1 

•1T0 

REP 

3 

LAST 

520 

31,3137 

45312 

0 

•1T1 





31,3140 

77624 

1 

• 172 

HEP 

3 

LAST 

520 

31,3141 

45422 

1 

•1T25 





31,3142 

77624 

1 

•1T26 

REP 

3 

LAST 

513 

31,3143 

46754 

0 

•1T3 

REP 

2 

LAST 

274 

31,3144 

16366 

0 

•1T4 





31,3145 

00005 

1 

•ITS 





31,3146 

TT624 

1 

•ITS 

REP 

4 

LAST 

031 

31,3147 

45422 

1 

01T65 





31,3150 

T7624 

1 

•1T0S 

HEP 

4 

LAST 

631 

31,3151 

46754 

0 

•ITT 

HEP 

4 

LAST 

274 

31,3152 

38364 

0 

•ITS 

REF 

5 

LAST 

630 

31,3153 

03657 

0 




USER*S PACE NO. 6 BT S3 



ratt 


STORE 

RTIG 


STORE 

RACT3 


vxv 

UNIT 

VTIG 


SICALL UNRM 



LCMAT 


VLOAD 

VXM 

DELVSLV 

0 


VSLl 

SXA.l 

HTX1 


STORE 

ABVAL 

DELVSIN 


STCVL 

VGDISP 

RTIG 

MAG DELV 

PDVL 

VAD 

DELVSIN 

VTIG 


CALL 

PBRIAPOl 


CALL 

9IIFTR1 


CALL 

>«XCrt< 


STCDL 

HPER 

40 

PERIGEE ALT fl+29 

CALL 

SHIPIR1 


CALL 

MAXCHC 


STOAI.L HAPO 

APOGEE ALT B*29 


OTEMP 
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20 ’35 OCT. 28,1988 WOTGBA .080 PAOB 832 
USBRaS PAGB NO, T Bl S3 


L 


P0181 

S31 

.1 

PROGRAM DESCRIPTION 


28DEC07 


110182 

MOD 

.1 

By S. ZELDIN 





R0183 

S31 

.1 OCMPUIES DELV IN REP AND LV COORDS MIG 

OF DELV. INTERCEPT T 

R0184 

APOCH3 AND PERIGEE ALT FOR 

required maneuver 



R0185 

CALLING SEQUENCE 





110186 



L CALL 




hoist 



L +1 

S31.1 




R0188 

normal exit mode 





H0189 



AT L +2 OP CALLING SEQUENCE! GOTO L*») 



R0190 

SUBROUTINES called 





B0191 



AGAIN 





B0192 



PERIAPOi 





110193 



aiiPTRi 





H0194 



MIDGIM 





110195 

NO ALARM OR ABORT MODES 




H0198 

INPUT 






H019T 



DELLT4 

DP 

♦28 



110198 



TIG 

DP 

♦28 



1101981 



RTARG 

VCT 

' ^29 



1101982 

OUTPUT 






1101983 



DELVLVC 

VCT <■? 



R01984 



VGDISP 

DP 

♦T 



H01985 



HAPO 

DP 

+29 



1101986 



HPER 

DP 

+29 



R01987 



TPASS4 

DP 

♦28 



1101988 

DEBRIS 

- OTKMP 





0200 




31,3154 

71220 1 S31.1 

STO 

DLCttD 

0201 

REP 

6 

LAST 631 

31,3155 

03657 0 


OH34P 

0202 

REP 

29 

LAST 630 

31,3156 

03413 1 


TIO 

0203 

REP 

33 

LAST 630 

31,3157 

34041 0 

STCALL TOECi 

0204 

REP 

1 


31,3160 

61663 0 


AGAIN 

0205 




31,3161 

63375 0 

VLOAD 

PDVL 

0206 

REP 

5 

LAST 631 

31,3162 

03632 0 


RTIG 

0207 

REP 

12 

LAST 547 

31,3163 

036 1 2 1 


VI PRIM*! 

0208 




31,3164 

77624 1 

CALL 


0209 

REP 

4 

LAST 631 

31,3165 

45312 0 


PERIAPOi 

0210 




31,3166 

. 77624 1 

CALL 


0211 

REP 

5 

LAST 631 

31,3167 

45422 1 


SlIPTRi 

02115 




31,3170 

77624 1 

CALL 


02116 

REP 

5 

LAST 631 

31,3171 

48754 0 


MAxCIK 

0212 

REP 

3 

LAST 831 

31,3172 

16366 0 

STCDL 

HPER 

0213 




31 , 3173 

00005 1 


4D 

0214 




31,3174 

77624 1 

CAIL 


0215 

REF 

6 

LAST 632 

31 ,3175 

45422 1 


ailETRl 

02155 




31,3176 

77624 1 

CAIL 


02156 

REP 

6 

LAST 632 

31,3177 

46754 0 


MAxCHc 

0216 

REP 

5 

LAST 631 

31,3200 

26364 1 

STOVL 

HAPO 




RETURNS KlX2,RTXl,RATT,VATr,VIPRIME 
DEU1EET3 


Bz 9 


B29 
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021T 

REF 

15 

LAST 

545 

31,3201 

021T5 





31,3202 

0218 





31,3203 

0219 

REF 

6 

LAST 

544 

31,3204 

0220 

REF 

1 



31,3205 

0221 





31,3206 

0222 

REF 

5 

LAST 

6 31 

31,3207 

0223 

REF 

8 

LAST 

545 

31,3210 

0224 





31,3211 

0225 

REP 

30 

LAST 

632 

31,3212 

0226 

REF 

8 

LAST 

469 

31,3213 

022T 

REP 

T 

LAST 

632 

31,3214 


03646 

0 


DELVBBT3 

00001 

0 

STORE 

0 

45014 

0 

SET 

CALL 

01072 

0 


AVFLAG 

10653 

0 


MIDGIM 

77646 

0 

ABvAL 


17654 

0 

STCDL 

VODISP 

03423 

1 


DELLT4 

77615 

0 

DAD 


03413 

1 


TIG 

37656 

0 

STCALL TPASS4 

03657 

0 


OIH4P 


USERaS PAGE NO. 8 Bt S3 

GET DELVLVC Bt FORDISPLAY 
B+t FOR DISPLAY 

FOR S40-1 






Asaaeu* beviskn 24 9 op aoc program ccunsus by nasa 2021111-041 20*35 ocr. 20,1008 pa*>cr» . 080 pa* 634 


P30.P3T 


USER-S PAOB MO. 


P0327 

R0329 

R0330 

H0331 

R0332 

R0334 

R0336 

R033T1 

R0338 

R0340 

R0342 

R0344 

R0346 

BO 347 

R0348 

BO 349 

R0350 

R0351 

BO 352 

BO 354 


subroutine na.vh> delrspl 

TRANSFERRED CCWLE-IELY prcm SLNDISX, P30S REV 33. 


MOD NO’ 
MOD NO’ 
MOD NO’ 
MOD NO’ 
MOD NO’ 
MOD 4 
FUNCTION 


MOD BY’ 
MOD BY’ 
MOD BY* 
MOD BY’ 
MOD BY' 
MOD BY 


ZELDIN 

RR BAIRN SFATK2R 
RR BA IENSPA7K3R 
RR BAIRNSEATKER 
RR RAIRNSEAIKER 
S. ZELDIN 


9 SEPT 6T . 
DATE’ 
DATE’ u 
DATE* 12 


(COITIMJATICN OF V 82 LN CS4 IP Pu ACTI 


11 APR 07 

12 MAY 07 


DATE’ 5 JULY 07 


ADO UR.RT CALC B® BSSJ* 300K FT 
FIX ERROR IN MOD. 2. 

Chance sign op displays) error 

CHANGE EQUATIONS FOR L/D=.i0 WHICH RBPLA 
MEASURE OP IN-PLANE SPLASH DOWN 


CALLING SEQUENCE 


MOD BY TtHJ)W S?A ' IKER ^ 87 CHANGB SIGN <F DISPLAYS) ERROR. 

a«, S ;^ DW 0418 3 APRIL 68 CHANGE EQUATIONS FOR L/D- in RHI 

DISPLAY ON CALL) AN APPROXIMATE MEASURE OP IN-PLANE SPLASH DOWN 

5® F ®f B T? ALL HWISFER ANGLE TO 30CK ft ABOVE PAD RADIUS IS POSITIVE’ 
_RA>KS TO WKST + FK33-FALL TRANSFER ANGLE ♦ ESTIMATED ENTRY ANGLE 

^ ,MPACT 13 USED - I" THE FREE-FALL TRANSFER 
ANCLE IS NEGATIVE’ SPLASI EHROR= -RANGE TO TARGET 
THE PRESENT TARCET LOCATION IS USS). 

SR30 - 1 IP !N Cs * AND IP pu OPERATING (UNDER CONTROL OF V02> 

VIUAi.air TIW/TOTfl rAioxwk, u ** 


AT LIN vy 

SUBROUTINES CALLED’ VGAMCALC, TFF/TRIG, LALOTORV 


®0IT REIURN DIRECTLY TO V 02 PROG. AT SPLRET 

ERASABLE INITIALIZATION LEFT by SR30 1 AND V02GCN1 
arrPUT’ RSP-RREC RANGE IN REVOLUTIONS 
DFBRIS’ OPRET, POLO . . ,PDL T ,POLl0 


DSCY DISPLAY IN N. MI. 


R03541 

R0355 


THETAO 1) 


0356 

035T REP 1 

0358 

0359 REF 1 


32,2017 

32,2000 

32,2017 


BANK 32 
ffiTLOC DELRSPLl 
BANK 

COUNT* SJ/P30 


programs’ P30 External delta v 


REF 1 
HEP 1 


REF 2 
REP 1 


LAST 634 


REF 1 


REF 1 


BEP 1 


BEF 2 
BEP 7 
BEP 9 
BEP 10 
BEF 0 
BEP 5 


LAST 89 
LAST 434 
LAST 022 
LAST 004 
LAST . 801 
LAST 500 


32,2017 

32.2020 

32.2021 

32.2022 

32.2023 

32.2024 

32.2025 

32.2026 

32.2027 

32.2030 

32.2031 

32.2032 

32.2033 

32.2034 

32.2035 

32.2036 

32.2037 

32.2040 

32.2041 

32.2042 

32.2043 


00011 1 
45244 1 
84087 1 
18328 1 
45000 0 
84067 1 
55050 1 
45006 0 
58573 0 
77824 1 
84075 I 
65525 0 
00017 1 
77615 0 
00005 1 
28350 0 
03401 1 
15104 0 
15332 I 
15110 0 
01205 1 


DBLRSPL store $d 
bpl DSU 




cantdo 

lBITDP 
BOV CALL 

CANTDO 
VGAMCAID 
PUSH CALL 

TPP/TRIG 


CONE PAST 30 OK FT ALT 


POSMAX INDICATES NO 30 OK FT SOLUTION. 
♦GAFMA(REV) IN PMAC.V300 MAGC B-T ) = PO(, 0 


AuGEKUGL 
POOL ACOS 

CDELF/2 


T ENTRY POL 0 


GEISRG STCVL THEDA(I) 
IAT< SPL) 
STODC LAT 

HI6ZEROS 
STODL ALT 

PIPTIi*? 


ALT=0 = IAT +4 






I 
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•382 





32,2044 

71214 

0 

0383 

REF 

2 

LAST 

499 

32,2045 

03711 

0 

03831 





32,2046 

64050 

0 

•3832 

REP 

6 

LAST 

509 

32,2047 

02325 

1 

03833 





32,2050 

43225 

0 

03834 





32,2051 

00011 

1 

0384 





32,2052 

45014 

0 

0385 

REP 

0 

LAST 

614 

32,2053 

00862 

0 

0388 

REF 

4 

IAST 

614 

32,2054 

26373 

1 

038T 





32,2055 

6 3256 

0 

•388 

REF 

14 

LAST 

513 

32,2056 

02327 

0 

03881 





32,2057 

50256 

0 

0389 





32,2060 

65552 

0 

0390 





32,2061 

T7621 

1 

A0391 





. 



A0392 








0393 

RES' 

3 

LAST 

634 

32,2062 

02350 

0 

0394 

REP 

3 

LAST 

275 

32,2063 

36356 

1 

03941 

REP 

1 



32,2064 

27404 

1 

03942 





32,2065 

77624 

1 

0395 

REE 

1 



32,2066 

46653 

0 

0398 





32,2067 

65345 

0 

A039T 








0398 

REF 

T 

LAST 

599 

32,2070 

15330 

0 

0399 

RES' 

11 

LAST 

634 

32,2071 

15332 

1 

0400 





32,2072 

77606 

1 

0401 





32,2073 

34011 

0 

0402 

REF 

1 



32,2074 

64036 

0 

0405 





32,2075 

77775 

1 

0408 

REF 

1 



32,2076 

24251 

1 

040T 

REF 

25 

LAST 

621 

32,2077 

14045 

0 

0408 





32,2100 

00001 

0 

0409 





32,2101 

50025 

0 

0410 

REP 

1 



32,2102 

24243 

1 

0411 

REP 

1 



32,2103 

64130 

1 

0412 





32,2104 

65060 

1 

0413 

RES' 

19 

LAST 

624 

32.2105 

00050 

1 

0414 

REP 

26 

LAST 

635 

32,2106 

00046 

0 

0415 





32,2107 

45324 

0 

0416 

REP 

20 

LAST 

635 

32,2110 

00050 

1 

041T 

REF 

1 



32,2111 

24231 

1 

0418 





32,2112 

65040 

0 

0419 

REF 

2 

LAST 

635 

32,2113 

64130 

1 

0420 

RES' 

21 

LAST 

635 

32,2114 

00050 

1 

0421 





32,2115 

50025 

0 

0422 

REF 

1 



32,2116 

24241 

0 

0423 

REP 

3 

IAST 

635 

32,2117 

64130 

1 

0424 





32,2120 

65124 

0 


BON 

DLOAD 

V 37 FLAG 

♦2 

TSTARTBZ 

DSU 

DAD 

bd 

CLEAR 

CALL 

ERADFLAG 

IALOTORV 

LNIT 

PCVL 

RCNB 

UNIT 

DOT 

*1 

BDSU 

ARCCOS 


DEULDCNE STCALL 


R RBCOV. IN ALPHA V AND MPAC 


ERROR = THETA EST - THETA TARO 
NEGATIVE NINBER SIGNIFIES THAT WILL FALL SHORT. 
POSITIVE NU«ER SIGNIFIES THAT WILL (VERSHOOT. 
THETAI l) 

rsp-rhec downrange i«ccwerv range error /380 

INTWAkEo 


CALL 


CANTDO DLOAD 


PUSH 

STCALL, 


SPLRBT 

POOL 

HIDPHALF 

HlBZERQS 

8 D 

GBTARG 


INITIALIZE ERA* TO DOT TARGET AND UR 
FOR RANGE ANGLE. 

TO PDL 0 FOR DEN IN DOV. 

ZERO TO PDL 2 FOR PHI ENTRY 

GO *T RSP-HRBC =0 


AUGEKUGL 


VLOAD 

STODL 

DSU 

XSU.l 

XGHX.Z 

ML 

DSU 

XCHX,Z 


XlCCN -2 
XI -2 
0 

B!»N 

Vt 21K> 

LOOPSET 

XOLX.Z 

Si 

XI 

DSU 

Si 

V(3K> 

XGHX.Z 

LOOPSET 

Si 

IW 

VC4K) 

LOOPSET 

XCHX ,2 
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0425 

0420 

042T 

0428 

0429 

0430 

0431 

0432 

0433 

0434 . 

0435 

0436 


REP 

REP 


22 LAST 635 
27 LAST 635 
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REP 

REP 


REP 


4 LAST 635 
23 LAST 636 


REP 

REP 


24 LAST 636 


c 


0437 

0438 



0439 

0440 

REP 

1 

0441 

REP 

1 

0442 

0443 

0444 

REP 

1 

0445 

REP 

1 

0446 

04461 



04462 

REP 

1 

04463 

0447 

0448 

REP 

2 LAST 636 

0449 

0450 

REP 

1 

0451 

REP 

1 

0452 

0453 

0454 

0455 

0456 

0457 

REP 

1 

0458 

REP 

1 

0459 

04591 

REP 

1 

04592 

REP 

1 

04593 

04594 
04594 

REP 

1 

0460 

*0461 

*0462 

REP 

2 LAST 634 TO 


32.2121 

32.2122 

32.2123 

32.2124 

32.2125 

32.2126 

32.2127 

32.2130 

32.2131 

32.2132 

32.2133 

32.2134 

32.2135 

32.2136 

32.2137 

32.2140 

32.2141 

32.2142 

32.2143 

32.2144 

32.2145 

32.2146 

32.2147 

32.2150 

32.2151 

32.2152 

32.2153 

32.2154 

32.2155 

32.2156 

32.2157 

32.2160 

32.2161 

32.2162 

32.2163 

32.2164 

32.2165 

32.2166 

32.2167 

32.2170 

32.2171 
32.21T2 
32,2173 

838* 


00050 1 
00046 0 
50025 
24225 
64130 
T7730 
00050 
52110 
00001 
64135 
T7730 
00050 
44745 
00001 
24240 1 
42603 1 
24224 0 
24210 1 
80125 1 
00003 1 
84133 1 
55225 1 
50000 1 
84167 0 
64167 0 
45325 1 
00001 0 
24251 1 
71244 0 
64164 0 
24245 1 
77671 1 
00001 0 
43405 1 
00005 
52145 
24247 
64162 
52145 
24173 
64152 
02755 1 
01307 1 
109 109* 



Sl 


XI 

DSU 

EW 

vuoo) 

LOOP SET 

SXA.l 

Sl 

I NCR, 1 GOTO 

DEC 

1 


K2CALC SXA.1 
K1K2LOOP DLOAD 


K1K2LOOP 


DMP* 

POOL 


DSU 

BOV 


PHICALC POOL 

BPL 


DOv 

TENT DMP 

7GR26 DLOAD- 


Si 

DSU* 

0 

V(32fO +1,1 
DAD* 

*KlK2 +1,1 
0(1K2 +1,1 
TlX, 1 
2 

K2CAI£ 

BDDV 

BSH 

MAXPHI 

MAXPHI 

DSU 

0 

Vf 26K) 

DLOAD 

TQR26 

TLESS26 


PHI FMTllY POL 4D 



MAXPHI DLOAD 
MAXPHIC 2DEC 


0 

RVQ 

4D 

GOTO 

TOR26CCN 

TENT 

GOTO 

MAXPHIC 

PHICALC 

.09259298 


2000 NM FOR MAXIMUM PHI ENTRY 


CQjNT* SJ/P30 


BELOW 

i±±± TABIE IS INDEXED. KEEP IN ORDER SSI v 
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0403 

0403 

0404 
0404 
0465 
0465 
0460 
0400 
046T 
046T 

0408 

0468 

0469 

0409 

0470 

0470 

0471 

0471 

0472 

0472 

0473 

0473 

0474 
04T4 

0475 

0475 
0478 

0476 

0477 

0477 

0478 

0478 

0479 

0479 

0480 

0480 

0481 

0481 

0482 

0482 

0483 

0483 

0484 

0484 

0485 

0485 

0486 

0487 

0488 
A0489 


32.2174 

32.2175 

32.2176 

32.2177 

32.2200 

32.2201 

32.2202 

32.2203 

32.2204 

32.2205 

32.2206 

32.2207 

32.2210 

32.2211 

32.2212 

32.2213 

32.2214 

32.2215 

32.2216 

32.2217 

32.2220 

32.2221 

32.2222 

32.2223 

32.2224 

32.2225 

32.2226 

32.2227 

32.2230 

32.2231 

32.2232 

32.2233 

32.2234 

32.2235 

32.2236 

32.2237 

32.2240 

32.2241 

32.2242 

32.2243 

32.2244 

32.2245 

32.2246 

32.2247 

32.2250 

32.2251 

32.2252 
32,225 3 
32,2254 


00013 0 
226 5 2 0 
00005 1 
01642 0 

00005 1 
01642 0 
77556 1 
53522 1 
00055 1 
20266 1 
00155 0 
07202 0 
00000 1 
00000 1 
77730 0 
T1525 0 
00000 1 
00000 1 
04445 0 
10102 0 
03726 1 
31201 0 
01040 1 
26313 1 
00234 1 
01660 0 
25254 0 
01014 0 
02222 1 
15646 1 
22223 1 
16457 0 
25254 0 
01014 0 
30304 0 
23351 1 
03030 1 
22335 1 
20000 0 
00000 1 
00033 1 
05763 0 
00053 1 
36200 0 
23637 1 
276 36 1 
00012 1 
OOOIO 0 

00006 1 



2DEC 

7.07304526 B-4 5500 



2DEC 

3.08641975 E-4 2400 



2DGC 

3.08641975 B-4 2400 



2DBC 

-8.8888888 E-3 -3.2 



2DGC 

2.7777777 E-3 1 


GC1K2 

2DEC 

6.6666666 E-3 2.4 



2DBC 

0 0 



2DGC* 

-1.86909989 B-5 B7* 

-.443 


2DBC 

0 



2DEC* 

1.11639691 E-3 B7* 

.001225 


2DBC* 

9.56911636 E-4 Bt* 

.00105 

YK1K2 

2DGC* 

2.59733157 B-4 B7* 

.000285 

V<400> 

2DEC 

1.2192 B-7 


V< 28K) 

2DEC 

85.344 B-7 


V( 3K) 

2DEC 

9.144 B-7 


V(24K> 

2DEC 

73.152 B-t 



2DEC 

85.344 B-7 


V(32K) 

2DEC 

97.536 B-7 


V<4K> 

2DEC 

12.192 B-7 


V< 2 IK) 

2DEC 

64.000 B-7 


UESS26 

2DEC* 

5.70146688 Et B- 35* 

8660PHI/V 

TGR26CCN 2DEC 

7.2 E5 B-28 PHI/3 


VC 26K> 

20EC 

79.248 b -7 26000 


XlCCN 

DEC 

10 



DEC 

8 



DEC 

6 



. ±+±± TABU? IS INDEXED. KEEP IN ORDER NNN 
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L P30.P3T 

A0490 


20*35 OCT. 28,1988 PANDORA .080 PACE 038 
USBR*S PACE NO. 13 Bf S3 
ABOvg 





c 


in 


ASSENBLB BBVIS1G J 249 OP AOC PROGRA.H COLOSSUS BY NASA 2021111-041 


F04S1 


•0493 

R0494 


P30.P37 


AVPLA<M/P 


R0492 SUBROUTINES USED 


UPFLAG 

DOWNFLAG 


•496 

REF 

2 

LAST 

626 

35,2000 




®TLOC 

P30S1 

049T 





35,3726 




BANK 


0498 

REF 

IT 

LAST 

549 

84,1770 




8BANK= 

SUBEXIT 

0499 





35,3726 

0 0006 

1 

AVFLAGA 

EXTEND 


0500 

REF 

18 

LAST 

639 

35,3727 

23*770 

0 


<*CH 

SUBEXIT 

0501 

REF 

39 

LAST 

628 

35,3730 

0 5447 

0 


1C 

DCWNFLAG 

0502 

REF 

T 

LAST 

633 

35,3731 

00050 

1 


ADRES 

AVFLAG 

05025 

REP 

. 4 

LAST 

560 

35,3732 

3 4753 

1 


CAE 

EBANK7 

05026 

REF 

29 

LAST 

565 

35,3733 

54 003 

0 


TS 

EBANK 

•502T 

REF 

2 

LAST 

171 

87,1424 




BBANK= 

ECSIEER 

0503 

REF 

20 

LAST 

629 

35,3734 

3 4676 

1 


CAP 

BIT 13 

0504 

REF 

3 

LAST 

639 

35,3735 

55*424 

0 


TS 

ECSTEER 

05045 

REF 

1 



35,3736 

3 4700 

1 


CAP 

EBANK4 

05046 

REF 

30 

LAST 

639 

35 , 3737 

54 003 

0 


TS 

EBANK 

05047 

REF 

19 

LAST 

639 

84,1770 




EBANK:: 

SUBExIT 

0505 

REF 

20 

LAST 

639 

35,3740 

0 1770 

0 


TC 

SUBEXIT 

0506 





35,3741 

0 0006 

1 

AVFLAGP 

EXTEND 


0507 

REF 

21 

LAST 

639 

35,3742 

23«770 

0 


QXCH 

SUBEXIT 

0508 

REF 

36 

LAST 

628 

35,3743 

0 5435 

0 


TC 

UPF1AG 

0509 

REP 

8 

LAST 

639 

35 , 3744 

00050 

1 


ADRES 

AvFTAG 

05091 

REF 

22 

LAST 

639 

35 , 3745 

0 1770 

0 


1C 

SUBEXIT 

0510 





35,3746 

0 0008 

1 

P20FLGCN 

EXTEND 


0511 

REF 

23 

LAST 

639 

35,3747 

23*770 

0 


oxch 

SUBEXIT 

05111 

REP 

37 

LAST 

639 

35,3750 

0 5435 

0 


TC 

UPFLAG 

05112 

REF 

6 

LAST 

628 

35,3751 

00031 

0 


ADRES 

TRACkFLG 

05113 

REP 

38 

LAST 

639 

35,3752 

0 5435 

0 


TC 

UPFLAG 

05114 

REP 

18 

LAST 

628 

35,3753 

00027 

1 


ADRES 

UPDATFIG 

•512 

REP 

24 

LAST 

639 

35,3754 

0 1770 

0 


TC 

SUBEXIT 


20*35 OCT. 28,1968 PANDORA .080 PAGE 639 
USERoS PACE NO. 14 87 S3 


AVFLAG = CSM 
BIT 5 FLAG 2 

SET ECSTEER = 1 

AVFLAO s IFM 

BIT 5 FLAG 2 



*ssa 4 aus revtsicn 249 of aqc program colossus by rasa 2021111-041 

P40-P4T 


raOGBAM DESCRIPTION **P40 CsM+* 
BH* 14 LAST 274 E6.1466 

31,3215 

* 24,2000 


24,2002 


EBANKr OAPOATRl 
BANK 31 
STILOC P40S 

bank 


1151 RHP 132 

1152 

1153 RHP 1 

1154 

1155 BO' 1 

1156 

1157 REF 1 

1158 REF 2 

1159 

1160 RHP iso 

1161 RHP 5 

1162 REF 75 

1163 RHP 2 

1164 REP 39 

1165 RH' 3 


1166 REF 

1167 RH» 






CtXJNT 24/P40 

' 639 

24,2002 

0 5447 0 

P40C94 

TC 

DOSNFLAG 


24,2003 

00023 0 


adrbs 

&TO2FLAG 

<29 

24,2004 

0 6006 1 


TC 

INTPRET 


24,2005 

43135 1 


SLOAD 

boff 

639 

24,2006 

03425 1 



EC STEER 

628 

24,2007 

01347 0 



XDBLVFLG 


24,2010 

50013 0 



P40S/C 


24,2011 

77745 1 


DLOAD 


635 

24,2012 

15332 1 



HI6ZEROS 

167 

24,2013 

17703 0 

P40S/C 

STOOL 

CSIEER 


24,2014 

10335 0 



PFNG 

122 

24,2015 

17727 0 

P40S/P 

ST0DL 

F 

63} 

24,2016 

03413 1 



TIG 

115 

24,2017 

03450 0 


STORE 

NCMTIG 


24,2020 

77776 1 


EXIT 


628 

24,2021 

0 4555 0 


TC 

BANKCALL 

608 

24,2022 

17573 0 


CADR 

R02BOTH 

640 

24,2023 

0 6006 1 

P40PVA 

TC 

INTPRET 


'24,2024 

77624 1 


CALL 



24,2025 

34000 0 



S40.1 


24,2026 

77824 1 


CALL 


24,2027 

51512 0 



840.2,3 


24,2030 

77414 0 


SET 

EXIT 

199 

24,2031 

01073 1 



PPRATELG 

24,2032 

0 2212 1 

P40SXTY 

TCr 

SETMINDB 


24,2033 

0 0003 1 


RELINT 


640 

24,2034 

0 4555 0 


TC 

EMNKCALL 

613 

24,2035 

56000 1 


CADR 

B60CSM 

626 

24,2036 

4 4712 0 


CS 

CHE 

105 

24,2037 

55«746 1 


TS 

NBRCYCLS 

639 

24,2040 

0 5435 0 


TC 

UPFIAG 

626 

24,2041 

00155 0 


ADRBS 

TIMRFLAG 


24,2042 

0 2252 0 


TC 

P41/P40 


24,2043 

0 2267 0 


TC 

P41/DSP 


1168 REF 




24,2044 3 2351 1 P40TTOG CAP V06N40 


20*35 OCT. 28,1968 PANDORA .080 PACE 640 
USER.S PACE NO. 1 g 0 g 3 


is mis an external delta v burn 


NO • C STEER = EC steer 
YES C STEER = ZERO 


set UP THRUST FOR P40 20,000 LBS 
P41 ENTERS HERE 

ORIGINAL TIG MAY BE SLIPPED BY P40S/SV 
SET ORIGINAL TIME CP ICWITICN FOR S40.9 


I«J STATUS CHECK 


COMPUTE VGTIGjlIT 
COMPUTE PREFERRED ATTITUDE 


narrq* deadband FOR MANEUVER (EBANKB) 


attitude maneuver 
for updatevg 


ALLOW CIDCkTASK 


INITIALIZE for CI.OCkWSK WHICH IS CAIJED 







HI 


ASSEMBLE REVISION 2*9 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 



L 

P40-P4T 









1109 

REF 

2 

LAST 

626 

24,20*5 

55*145 

1 


TS 

NVWOTOl 

1170 

REF 

133 

LAST 

640 

24,20*6 

0 6003 

1 


TC 

INTPRET 

11T1 





24,20*7 

51575 

1 


VLQAD 

ABVAL 

1172 

REF 

5 

LAST 

169 

24,2050 

03721 

0 



VOTIG 

1173 

RES' 

6 

LAST 

633 

24,2051 

17654 

0 


STCDL 

VCD ISP 

11731 

REF 

13 

LAST 

6*0 

24,2052 

15332 

1 



HI6ZEROS 

11732 

REF 

4 

LAST 

2T6 

24,2053 

03428 

1 


STORE 

DVTOWL 

1174 





24,205* 

77776 

1 


EXIT 


1175 





24,2055 

0 0006 

1 


EXTB® 


1176 

REF 

1 



24,2056 

3 2773 

0 


DCA 

stebrads 

1177 

REP 

3 

LAST 

77 

24,2057 

53*223 

1 


PXCH 

AVEGEXIT 

1178 

REF 

1 



24,2060 

3 2344 

0 

P40OB 

CAP 

P40CKLS2 

1179 

REF 

161 

LAST 

6*0 

24,2061 

0 4555 

0 


TC 

BANKCALL 

1180 

REF 

2 

LAST 

612 

24,2062 

20751 

0 


CADR 

GOPERPl 

1181 

REF 

1 



24,2063 

1 2204 

1 


TCP 

POST41 

1182 

. REF 

1 



24,2064 

1 2362 

0 


TCP 

TST.TRIM 

1183 

REF 

38 

LAST 

575 

24,2065 

4 4712 

0 

TRIMCNLY CS 

BITl 

1184 

REF 

i 



24,2066 

55*445 

1 

+i 

TS 

mrcrtmp 

1185 

REP 

126 

LAST 

626 

24,2067 

3 4714 

1 


CAP 

ZERO 

1186 

REF 

1 



24.2OT0 

55«44T 

0 


TS 

CNTR 

~-All 87 











— ' 1188 

REF 

76 

LAST 

640 

24,2071 

3 4712 

1 


CAP 

CNE 

1109 

REF 

23 

LAST 

626 

24,2072 

0 5140 

1 


TC 

WAITLIST 

1190 

REF 

15 

LAST 

8*0 

E6.1466 




erank- 

DAPDATR1 

1191 

REF 

1 



24,2073 

02051 

X 


JjCADR 

S40.6 

1191 

REF 

1 



24,2074 

40066 

0 




1192 

REP 

2 

LAST 

6*1 

24,2075 

11*445 

1 


CCS 

MRKRIMP 

1193 

REF 

1 



24,2076 

3 2343 

1 


CAP 

1BSEC 

1194 





24,2077 

1 2101 

1 


TCP 

*2 

1195 

REF 

1 



24,2100 

3 2776 

0 


CAF 

5SEC 

1196 

REP 

162 

LAST 

6*1 

24,2101 

0 4555 

0 


TC 

BANKCALL 

1197 

REF 

8 

LAST 

576 

24,2102 

01732 

0 


CADR 

DELAYJCB 

1198 

REF 

12 

LAST 

626 

24,2103 

0 5261 

1 


TC 

ZPHSCHNG 

1199 





24,2104 

40026 

1 


OCT 

40026 

1200 





24,2105 

00234 

1 


OCT 

00234 

1201 

REF 

77 

LAST 

6*1 

24,2106 

3 4712 

1 

P40S/RS 

CAF 

CNE 

1202 

REP 

24 

LAST 

6*1 

24,2107 

0 5140 

1 


TC 

WAITLIST 

1203 

REP 

32 

LAST 

640 

Et.1412 




EBANK= 

TIG 

1204 

REF 

4 

LAST 

626 

24,2110 

03172 

0 


2CADR 

CLQC»a< 

1204 





24,2111 

50067 

0 




1205 





24,2112 

0 0003 

1 


RELINT 

1206 

REF 

1 



24,2113 

0 3304 

0 

P40S/SV 

TCR 

E7SSTIBR 

1207 

REP 

33 

[AST 

6*1 

E7,1412 




EBANK= 

: TIG 


20*35 OCT. 28,1968 PANDORA .080 PAGE 6*1 
USERsS PAGE NO. 2 Be S3 

BELOW ' 

FOR R2 


SET FOR UFOATEVG AND TEST FOR STEERING 
AFTER AVERAGE G 

(4.1 PROTECTION) 


V34 

V33 

SET MRKRTEMP FOR GLOBAL TRIM (-1) 
©(TRY FRO* TST.TRIM 

SET CNTR +0 FOR RESTART LOGIC IN S40.6 
+0 SAYS NORMAL ENTRY. 

+1 (PRE40.6) SAYS RESTART ENTRY 


TEST TO FIND TI(« TO WAIT FOR GIMBALTEST 
PLUS, DELAY FOR 18 SECONDS 
HOLE 

DEIAY FOR TRIM CN1.Y TASK 


6.2 = PRB40.6<-0CS>, CLQCTASKC lOOCS) 
4.23 = P40S/SV (PRIO 12 ) 

P41/SDP 


JOB, 4.23 PRETECTS, PRI012 




w ASSEMBLE RevisiCN 249 






C 


L 

P40 

-P4T 



1208 

REF 

134 

last 

641 

1209 




1210 

REP 

34 

LAST 

641 

1211 

HEP 

1 


1212 

REP 

34 

LAST 

632 

1213 

1214 

REP 

1 



1215 





1216 

REP 

1 



1217 





1218 

REP 

266 

LAST 

623 

1219 

REP 

9 

LAST 

210 

1223 




1224 

REP 

1 



1225 

REP 

10 

LAST 

642 

1226 




1227 

REP 

11 

LAST 

642 

1228 

REP 

2 

LAST 

417 

1229 

REP 

35 

LAST 

642 

1230 

REP 

3 

LAST 

209 

1230 




1231 

REP 

41 

LAST 

628 

1232 





1233 

1234 

1235 

1236 
12362 
123T 

1238 

1239 

1240 

1241 

1242 

1243 


REP 80 LAST 628 
REP 163 LAST 641 
REP 4 LAST 527 
REP 81 LAST 642 
REP 36 LAST 642 


REP 5 LAST 301 
REP 37 LAST 642 


HEP 2 LAST 642 
REP 38 LAST 642 
REP i 


1244 

1245 

1246 

1247 

1248 

1249 

1250 

1252 

1253 

1254 

1255 

1256 " 


REP 16 
REP i 
REP 164 
REF i 
REF 2 
REP i 
REP 2 


LAST 641 
LAST 642 
LAST 641 
LAST 209 


24.2114 

24.2115 

24.2116 

24.2117 
24,2120 


0 6006 1 
45345 1 
03413 1 
10342 0 
00041 1 


TC 
DLOAD 


INTPRET 
DSU 
TIG 

SEC29.96 

STORE TDECi 


REP i 
RRP 4 
REP 2 
REP 165 


tAST 641 
LAST 530 
LAST 642 


24.2121 

24.2122 

24.2123 

24.2124 

24.2125 

24.2126 

24.2127 

24.2130 

24.2131 

24.2132 

24.2133 

24.2134 

24.2135 
ET ,1412 

24.2136 

24.2137 

24.2140 

24.2141 


77624 1 
27577 1 
1 2125 
0 2146 
0 0006 

3 0155 
53*673 
0 0006 

4 2776 
21*873 
0 0006 1 
3 1673 1 
0 5231 1 


CALH8 


1 

0 

1 

0 

0 

1 

1 

0 


P40SET 


02364 1 
50067 0 


TOP 

TC 

BxtE® 

DCA 

DxCH 

EJCTIS© 

DCS 

DAS 

Rirrftff) 

DCA 

TC 

bbaxk- 

2CADR 


MIDIOWl 

♦2 

P40S®»M 


MPAC 

P40TMP 


5S8CDP 

P407MP 


P40TMP 

LCNQCALL 

TIG 

TIGBLNK 


24.2142 

24.2143 

24.2144 

24.2145 
E7.1412 

24.2146 

24.2147 

24.2150 

24.2151 

24.2152 

24.2153 

24.2154 


0 5301 0 

TC 

FHASCHNG 

20214 1 

OCT 

20214 

1 5112 1 

TCP 

BNDCPJCB 

0 4555 0 

P40BI.NKR 1C 

BANKCALL 

20807 1 

CADR 

CLEANDSP 

1 5112 1 

TCP 

aNDOPJOB 


RV1NK- 

TIG 

0 0008 1 

P40 SNEWH extend 


3 1248 0 

DCA 

PIPTIMBi 

53«413 1 

PxCH 

TIG 

0 0008 1 

extend 


3 2342 0 

DCA 

SBC29 . gg 

21*413 1 

IMS 

TIG 

1 2125 1 

TOP 

P40SBT 


B6.1466 

24.2155 

24.2156 

24.2157 

24.2160 

24.2161 

24.2162 

24.2163 

24.2164 

24.2165 

24.2166 

24.2167 


3 2353 

0 4555 
20810 

1 2204 
1 2163 
1 2155 
0 0006 
3 2407 
53«223 
3 4735 
0 4555 


EBA.NK= DAPDATRi 
POSTOUKN CAP Vl6iV 40 

1 C BANkCALL 

cadr reflash 

TCP POST41 
TCP P40RCS 

TCP POSTBUHN 

P40HCS EXTEND 

DCA ACADS85 

DXCH AVEGEXIT 

CAP 2 SECS 

TC BANKCAU, 


20*35 OCT. 28,1968 PANDORA .080 PAGE 642 
LK95B.S PACE NO. 3 Br S3 

RETURN IN BASIC 

INTEGRATION TIME GREATER THAN ALLOWED 
VBLTA TDK TO PREREAD (INT.INIT.) 

FOR TIGBLUC 

4.21 = TIGBL«( IP401MP CS) 

RE4CVE RESIDUE 

XT NEW TIG FOR 06 40 

FOR LQNOCAU, OP TIG-30 ( OR -35) 

V34 GO FINIS! 

PROCEED 
RECYCLE 

V99N40 ENTERS HERE CM A P40 BYPASS SPS 
WAIT FOR CAI.CN85 VIA AvEGBXIT 





ASSfi«LB REVISION 2*9 OP AOC PROGRAM COLOSSUS BY NASA 2021111-0*1 



c 


L 

BAC- 

-r*7 









125T 

HS' 

9 

LAST 

641 

24,2170 

01732 

0 


CADR 

DELAYJOB 

1258 

REP 

3 

LAST 

640 

24,2171 

0 2212 

1 

P40MINDB ICR 

ffiTMINDB -1 

1259 





24,2172 

0 0003 

1 


RELINT 


1260 

RHE 

42 

LAST 

642 

24,2173 

0 5301 

0 

TIGNOW 

1C 

FHASCHNG 

12602 





24,2174 

05024 

1 


OCT 

05024 

1260* 





24,2175 

20000 

0 


OCT 

20000 

12606 

RES' 

1 



24,2176 

3 2350 

0 


CAP 

V16N85B 

1261 

REP 166 

LAST 

642 

24,2177 

0 4555 

0 


1C 

BANKCALL 

1262 

RES' 

2 

LAST 

642 

24,2200 

20810 

1 


CADR 

REFLASI 

1263 

RES' 

3 

LAST 

642 

24,2201 

1 2204 

1 


TCP 

POST41 

1264 

REF 

4 

LAST 

643 

24,2202 

1 2204 

1 


TCP 

POST41 

1265 

REF 

1 



24,2203 

1 2173 

1 


TCP 

TIGNOW 

1267 





24,2204 

0 0006 

1 

POST41 

Exra® 


1268 

REF 

1 



24,2205 

3 2405 

1 


DCA 

sehvcadr 

1269 

REF 

5 

LAST 

642 

24,2206 

53*223 

1 


OXCH 

AVEGEXIT 

12T1 

REP 

39 

LAST 

628 

24,2207 

1 4106 

0 


TCP 

GOTOPOCH 

1272 





24,2210 

00056 

1 

MIND0 

DEC 

46 

1273 





24,2211 

00707 

1 

MAXDB 

DEC 

455 

12732 

HEP 

17 

LAST 

642 

Be, 1466 




EBAJ6C= 

DAPDATRl 

1274 





24,2212 

0 0004 

0 

-1 

ihiint 


1275 

REP 

13 

LAST 

583 

24,2213 

3 0032 

0 

SB1MIND8 

CA . 

OXJX 

1276 

REP 

4 

LAST 

168 

24,2214 

5S«S72 

1 


TS 

THETADX 

1277 





24,2215 

0 0006 

1 


EXTEND 


1278 

REP 

S 

LAST 

563 

24,2216 

3 0034 

0 


DCA 

CDUY 

1279 

REP 

•V 2 

■ LAST 

107 

24,2217 

53*574 

1 


DXCH 

THETADY 

1280 

RHP 

. 1 



24,2220 

3 2210 

0 


CA 

MINDB 

1281 

REP 

2 

LAST 

108 

24,2221 

55*655 

1 


TS 

ADB 

1282 

REP 

26 

LAST 

583 

24,2222 

4 4707 

1 


CS 

BIT4 

1283 

HEP 

18 

LAST 

643 

24,2223 

7 1466 

0 


MS SC 

DAPDATRl 

1284 

REP 

19 

LAST 

643 

24,2224 

55*466 

0 


TS 

DAPDATRl 

1285 

REP 155 

LAST 

628 

24,2225 

0 0002 

0 


1C 

O 

12852 

REP 

20 

LAST 

643 

Be, 1468 




EBANK= 

DAPDATRl 

1288 





24,2226 

0 0004 

0 

-1 

INHINT 


1287 

REP 

1 



24,2227 

3 2211 

1 

setswxdb 

CA 

MAXDB 

1288 

REF 

3 

LAST 

643 

24,2230 

55*655 

1 


TS 

ADB 

1289 

REF 

21 

LAST 

643 

24,2231 

4 1466 

0 


CS 

DAPDATRl 

1290 

REF 

27 

LAST 

643 

24,2232 

7 4707 

1 


MASK 

BIT4 

1291 

REF 

22 

LAST 

643 

24 , 2233 

27*466 

0 


ADS 

DAPDATRl 

1292 

REF 

156 

LAST 

643 

24,2234 

0 0002 

0 


1C 

O 


20*35 OCT. 28,1968 PANDORA .08# MOB 6*3 
USBRxS PACE NO. * Hi S3 


TYPE c GROUP * BELOW FOR NOUN 85 
PRIO 20 


FINISH P*0/P*1 

VO 3 PROCEED WITH REST OP THE O-EW-UP 
V32 NOT GSOP RRSPCNS? BUT REDISPLAY N85 


routine for setting 

THE MINIHJM DEADBAND 
IN AUTOPILOT 


9ICULD BE CALLED UNDER 
INTERRUPT INHIBITED 
EBANK = Be 


ROUTINE FOR SETTING 

THE MAXIMUM DEADBAND IN AUTOPILOT 

SHOULD BE CALLED UNDER 
INTERRUPT INHIBITED 
EBANK = Ee 



V 


Assa-dfi REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 
L P40-P47 


C 


Pi 293 

PROGRAM DESCRIPTION 

**P4lCS44* 




1354 

REF 

23 

last 

643 

He, 1466 



EBANK: 

= DAPQATRl 

1355 

REF 

1 






COUNT 

24/P41 

1358 

REF 

40 

LAST 

640 

24,2235 

0 5435 0 

P41CS4 

TC 

UPFLAG 

135T 

REF 

2 

LAST 

640 

24,2238 

00023 0 


ADRES 

ENG2FIAG 

1358 

REP 

135 

'LAST 

642 

24,2237 

0 6008 1 


TC 

INTPRET 

1359 





24,2240 

77745 1 


DLOAD 


1380 

REP 

14 

LAST 

641 

24,2241 

15332 1 



HI6ZEROS 

1381 

REP 

4 

LAST 

640 

24,2242 

03703 0 


STORE 

C STEER 

1382 





24,2243 

43145 0 


DLOAD 

BCN 

1383 

REP 

1 



24,2244 

10337 1 



PRCS2 

1364 

REP 

1 



24,2245 

00700 0 



NJETSFLG 

1385 

REP 

1 



24,2246 

50015 0 



P40S/P 

1386 





24,2247 

52015 1 


DAD 

GOTO 

138T 

REF 

2 

LAST 

644 

24,2250 

10337 1 



PRCS2 

1368 

REP 

2 

LAST 

644 

24,2251 

50015 0 



P40S/P 

1389 

REF 

11 

LAST 

511 

24,2252 

4 1011 1 

P41/P40 

CS 

MCDRBG 

1370 

REP 

78 

LAST 

641 

24,2253 

7 4712 0 


MASK 

CUE 

1371 





24,2254 

0 0006 1 


EXTEND 


1372 





24,2255 

1 2257 1 


BzP 

*2 

1373 

REP 

157 

LAST 

643 

24,2256 

24 002 0 


INCR 

0 

1374 

REP 

158 

LAST 

644 

24,2257 

0 0002 0 


TC 

0 

1375 

HEP 

4 

LAST 

430 

24,2260 

3 4675 1 

TIC/o 

CAF 

PRIO 20 

1376 

REF 

18 

LAST 

575 

24,2261 

0 5027 1 


TC 

NCVAC 

1377 

REP 

24 

LAST 

644 

E6.1466 



ERANK= 

DAPQATRl 

1378 

REF 

2 

LAST 

643 

24,2262 

02173 0 


2CADR 

TIGNCW 

1378 





24,2283 

50086 1 




1379 

REF 

41 

LAST 

640 

24,2264 

0 5447 0 

P40CLK 

TC 

DOWNFLAG 

1380 

REF 

4 

LAST 

640 

24,2265 

00155 0 


ADRES 

TIMRFLAG 

1382 

REP 

26 

LAST 

531 

24,2286 

1 5213 0 


TCP 

TAiKCVER 

1383 

REP 

1 



24,2287 

3 2347 0 

P41/DSP 

CAF 

V06NB5B 

1384 

REF 

3 

LAST 

641 

24,2270 

55*145 1 


TS 

NVWORDi 

1385 

REP 136 

LAST 

644 

24,2271 

0 6006 1 


TC 

INTPRET 

1386 





24,2272 

77824 1 


CAIL 


1387 

REF 

1 



24,2273 

50314 1 



P40CNV85 

1388 





24,2274 

77776 1 


EXIT 


1389 





24,2275 

0 0006 1 


EXTEND 


1390 

REF 

2 

LAST 

642 

24,2276 

3 2407 0 


DCA 

ACADNS5 

1391 

REF 

6 

LAST 

643 

24,2277 

53*223 1 


DXCH 

AVBGEXIT 


20*35 OCT. 28,1968 PANDORA .080 PAGE 844 
USSRaS PAGE NO. 5 8s S3 


SET FOR RCS 


FOR P41 C STEER =0 


2 JET THRUST FOR S40.1 

NJETS s 1 2-JBT 
NJETS = 0 4-JBT 


P41EXITS AT CALL LOC +1 
P41 

P40 exits at call log +2 

TASK <4.4 PROTECTS IN P41> 



SET UP FOR NCNFIAS1 V 06 N85 BX aXKKJOB 

CCMPinE 

VGTIG IN CTRL COORDS 
DO CCNTROL COORD CAIAflATICN AFTER AVEC. 
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L 

P40- 

P47 









USBR-S PAGE NO. 6 E« S3 

1392 

BP 

13 

LAST 

641 

24,2300 

0 5281 

1 


TC 

2PHSCHNO 

- 

/1393 





24,2301 

40038 

0 


OCT 

40038 

6 . 3=CLCKTASK< lOOCS) 

1394 





24,2302 

00234 

1 


OCT 

234 

4.23=P40S/SV(PRIOi2> 

1395 

HEP 1 

1 


. 

24,2303 

1 2106 

0 


TCP 

P40S/RS 


1399 

REP 

2 

LAST 

643 

24,2304 

3 2350 

0 

P41HEDSP CAP 

V16N85B 

ENTER FROM P 41 SIDE OP TJOAvEQ 

139T 

REP 

4 

LAST 

644 

24,2305 

55-145 

1 


TS 

NVWOTOl 

RSI I SPLAY NCNFIASHINO 

1398 

REP 

3 

LAST 

642 

24,2308 

3 2342 

0 


CAP 

SEC 29. 96 +1 


1399 

REP 

25 

LAST 

641 

24,2307 

0 5140 

1 


1C 

■AITLIST 


1400 

REP 

25 

LAST 

644 

Be, 1486 




B3A16c= 

DATOATRl 


1401 

HEP 

2 

LAST 

208 

24,2310 

02280 

1 


2CADR 

TTO/o 


1401 





24,2311 

50068 

1 





1402 

REP 

22 

LAST 

61T 

24,2312 

4 4710 

1 


CS 

BIT3 

4.4 = TTG/0 ( 2996CS) , PRECHECkI -OCS) 

1403 

HEP 

1 



24,2313 

1 2513 

0 


TCP 

TIGPHS 


1404 





24,2314 

40220 

0 

P40CNV8S 

STQ 

SETPD 


1405 

REP 

1 



24,2315 

03730 

0 



OTB4P1 


1400 





24,2316 

00001 

0 



0 


1407 





24,2317 

41575 

0 


VLOAD 

puai 


1408 

REP 

1 



24,2320 

03721 

0 



VGPRBV 

EQUALS VGTIO (TARGETITNG INPUT) 

1409 





24,2321 

77624 

1 


CALL 



1410 

HEP 

1 



24,2322 

45426 

0 



S41.1 


1411 

HEP 

6 

LAST 

2Tr 

24,2323 

37865 

0 


STCALL VGBCDY 


1412 

REP 

2 

LAST 

645 

24,2324 

03730 

0 



OIEMPl 


14122 

REP 

26 

LAST 

645 

E6.1486 




ebank= 

DAFiDATOl 


1413 

REP 

13T 

LAST 

644 

24,2325 

0 6006 


CALCNS5 

TC 

INTPRET 


1414 





24,2326 

77624 



CALL 



1415 

HEP 

1 



24,2327 

51616 

1 



UPOATEvG 

NEW VO, S40.8(+MAYBB S40.9> 

1416 





24,2330 

77624 



CALL 



141T 

REP 

2 

LAST 

644 

24,2331 

50314 

i 



P40CW85 

CCMPUTE VGBCDY 

1418 





24,2332 

77776 

1 


EXIT 



1419 

REP 

1 



24,2333 

0 3127 

0 


TC , 

SSRVXT 


1420 





24,2334 

02217 

1 

FENG 

20EC-. 

9:7188544 B-T 

SPS THRUST ( 20500LBS) , SC.AT B+t NEWT/E4 

1420 





24,2335 

08650 

1 





1421 





24,2338 

00013 

0 

FRCS2 

2DBC 

.087437837 B-T 

RCS UUAGE (199.6COS10 LBS) , SC.AT 

1421 





24,2337 

06112 

0 





AX422 











B+t NEWTCNS/E+4 

1423 





24,2340 

04700 

1 

®C24.98 

DEC 

2496 


1424 





24,2341 

00000 

1 

SEC29.g6 

2DBC 

2996 


1424 





24,2342 

05664 

0 





1425 





24,2343 

03410 

1 

18SBC 

Dec 

1BOO 


1426 





24,2344 

00204 

1 

P40CKLSZ OCT 

204 


1427 





24,2345 

37730 

1 

40CSI5 

OCT 

377 30 

40 CS FOR THE TS CLOCK 

1428 

REP 

4 

LAST 

379 

4377 



0CT12 

= 

TEN 


1429 





24,2346 

04123 

0 

V1683 

VN 

1683 


1430 





24,2347 

01525 

1 

V08N85B 

VN 

0685 


1431 





24,2350 

04125 

0 

V16N85B 

VN 

1685 


1432 





24,2351 

01450 

1 

V06N40 

VN 

0640 


1433 





24,2352 

24020 

0 

P40CK99 

OCT 

24020 

BITS 14,12, AND 5 FOR LINUS VERB 99 

1434 





24,2353 

04050 

0 

V16N40 

VN 

1640 
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1435 

1436 
143T 

1438 

1439 

1439 

1440 
A1441 
A1442 
A1443 

1445 

1446 
144T 

1448 

1449 

1450 

1450 

1451 

1452 


REE 27 LAST 645 
REP 4 LAST 255 


REP 39 LAST 841 
REP i 

REP 2 LAST 641 
REP 26 LAST 645 
REP 39 LAST 642 
HEP 2 LAST 209 

REP 127 LAST 641 
REP 5 LAST 645 


4 LAST 561 


c 


1453 REP 

1454 REF 19 LAST 644 

1455 REP 40 LAST 646 

1456 REF l 

1456 REP i 

145T REF 3 LAST 220 

1458 REP 2 LAST 430 

1459 

1460 REP 27 last 644 


REF 41 LAST 646 
1 


1481 

1462 REP 

1462 REP 

1463 

1464 

1464 

1465 REP 28 LAST 646 

1466 REF 1 

1466 REP 1 


REP 42 LAST 646 
REP 2 LAST 531 


24,2354 

00027 1 

OCT27/24 OCT 27 

24,2355 

00053 1 

OCR3 

OCT 53 

24,2356 

00035 1 

OCT35 

OCT 35 

E6, 1466 



EBANK= IMPDATRi 

24.235T 

03143 1 

T5IDL24 

2CADR T5IDLOC 

24,2360 

12066 1 



24,2381 

00026 0 

3MXJT 

CEO 86-817579 

24,2362 

3 4712 1 

TST.TRIM CAP BITl 

24,2363 

1 2086 1 


TCP TRIMCKLY 

24,2364 

3 2776 0 

tioblnk 

CAP 5 SEC 

24,2385 

0 5140 1 


1C WAITLIST 

E7.1412 



EB4NC- TIG 

24,2366 

02502 1 


2CADR TIGAVEG 

24,236T 

50067 0 



24,2370 

3 4714 1 


CAP tKro 

24,2371 

S5«145 1 


TS NVWQHDi 

24,2372 

3 4761 0 


CAP PRIO14 

24,2373 

0 5 0 27 1 


TC NOvAC 

E7.1412 



ebank= tig 

24,2374 

02143 0 


2CADR P40BLNKR 

24,2375 

50067 0 



24,2376 

4 4362 0 


CS OCT37 

24,2377 

0 4114 1 

P40TSK 

TC NEWPHASE 

24,2400 

00004 0 


OCT 4 

24,2401 

0 5213 1 


TC WaGVER 

E7.1412 



erank- tig 

24,2402 

02436 1 

ACADN83 

2CADR CALCN83 

24,2403 

50087 0 



E7 , 1412 



EBANKr TIG 

24,2404 

03132 1 

SERVCADR 2 CADR ®rvEXIT 

24,2405 

76067 1 



Eo , 1466 



EHANK= DAPQATRl 

24,2406 

02325 1 

ACADN85 

2CADR CALEBS 

24 , 2407 

50066 1 




8*16 KG/SBC INDIE, R4DOT IS PAD-LOADED, 
ft/T 3MXTT IS NOT A CRITICAL QUANTITY, SO 
IT CAN REMAIN IN FIXED NR40RY) 

SET UP FOR 01(41 DRIVE TEST AND TRIM (+1) 

CALL TIGAVBG IN FIVE SEC AT TIG-30 


DISABLE HERE, NOT IN P40BLNKR 


dcnt protect-restarts blank dsky 

4.37 = TIGAVEG <500Cs> 
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USERaS PAGE NO. B 06 33 


P146T PROGRAM DESCRIPTION **P4TCS4** 




1508 

REP 

1 







cam 

24/P47 


1509 

REP 

43 

LAST 

646 

07,1412 




EBANK= 

TIG 


1510 

REP 167 

LAST 

643 

24,2410 

0 4555 

0 

P 47 CSM 

1 C 

RANKCALL 

IMU STATUS CHECK 

1511 

REP 

5 

LAST 

640 

24,2411 

17573 

0 


CADR 

R02BOIH 


1512 

REP 

138 

LAST 

645 

24,2412 

0 6006 

1 


TC 

IN TP RET 


1513 





24,2413 

77624 

1 


CALRB 



1514 

REP 

1 



24,2414 

27573 

0 



MIDTOAV 2 


1515 

REP 

26T 

LAST 

642 

24,2415 

30 155 

0 


CAE 

HP AC +1 

DELTA TIME TO RPEBEAD (LESS THAN 1000 

1516 

REP 

12 

LAST 

842 

24,2416 

55«672 

1 


TS 

P40TMP 

CS, WITH A TPAGREB, INT. INIT. ) 

1517 

REP 

27 

LAST 

646 

24,2417 

0 5140 

1 


TC 

WAITLIST 


1518 

REP 

• 44 

LAST 

647 

07,1412 




fflANKr 

TIG 


1519 

REP 

2 

LAST 

210 

24,2420 

02425 

0 


2 CADR 

TIGCN 

TIGCN IS REQUIRED TO MATHCHTAT AND AvEG 

1519 





24,2421 

50067 

0 





1520 

REP 

43 

LAST 

643 

24,2422 

0 5301 

0 


TC 

PHASCHNG 


1521 





24,2423 

40574 

0 


OCT 

40574 

4, 4.57 = TIGCN (P40TMP CS) 

1522 

REP 

82 

LAST 

642 

24,2424 

1 5112 

1 


TCP 

BNDOFJCB 


15222 

REP 

13 

LAST 

647 

07,1672 




ESANK= 

P40TMP 


1523 





24,2425 

0 0006 

1 

TIGCN 

EXTEND 



1524 

REP 

1 



24,2426 

3 2403 

1 


DCA 

ACADNB3 


1525 

REP 

7 

LAST 

644 

24,2427 

53«223 

1 


DxCH 

AVBGEXIT 


1526 

REP 

9 

LAST 

583 

24,2430 

3 4371 

0 


CAP 

PRIO 30 

FORCE ZEROING OP Ns 3 BEFORE SERVICER 

152T 

REP 

20 

LAST 

646 

24,2431 

0 5027 

1 


TC 

NOVAC 


1528 

REP 

45 

LAST 

647 

07,1412 




EHANK= 

TIG 


1529 

REF 

2 

LAST 

208 

24,2432 

02461 

0 


2 CADR 

P 47 BCDY 


1529 





24,2433 

50067 

0 





1530 

REP 

26 

LAST 

5T8 

24,2434 

4 4711 

0 


CS 

BIT 2 

4.2 = PRECHECK (- 0 CS), P 47 BODY (PRI030) 

1531 

REF 

2 

LAST 

645 

24,2435 

1 2513 

0 


TCP 

TIGPHS 


1532 

REP 

46 

LAST 

647 

07,1412 




EBANK= 

TIG 


1533 

REP 

139 

LAST 

647 

24,2436 

0 6006 

1 

CALCN83 

TC 

INTPRET 


15333 





24,2437 

77601 

0 


SBTPD 


SET UP PUSHLIST FOR S41.1 

15336 





24,2440 

00001 

0 



0 


1534 





24,2441 

53375 

0 


VLOAD 

VAD 


1535 

REF 

1 



24,2442 

03665 

1 



DELVCTL 


1536 

REP 

1 



24,2443 

03433 

0 



DELVHEP 


1537 

REP 

1 



24,2444 

03460 

0 


STORE 

DV 47 TEMP 

FOR COPYCYCIJ3 BELOW 

1538 





24,2445 

45006 

0 


PUSH 

CALL 


1539 

REP 

2 

LAST 

645 

24,2446 

45426 

0 



S41.1 


1540 

REP 

6 

LAST 

277 

24,2447 

37675 

1 


SICALL DELVIMU 


1541 

REF 

2 

LAST 

531 

24,2450 

70436 

1 



Sll.l 

CALC. VI, H, HDOT FOR NaiN 62 

1542 





24,2451 

77776 

1 


EXIT 



1543 

REP 

44 

LAST 

647 

24,2452 

0 5301 

0 


TC 

PHASCHNG 


1544 





24,2453 

10035 

0 


OCT 

10035 
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L 

P40 

-P4T 



1545 

REP 

14 

LAST 

561 

1546 

REP 

10 

LAST 

569 

1547 

REP 

2 

LAST 

647 

1548 

REP 

2 

last 

647 

1549 

REP 

2 

last 

645 

1550 

HEP 

140 

LAST 

647 

1551 





1552 

REP 

15 

LAST 

644 

1553 

REP 

T 

LAST 

647 

1554 

REP 

3 

LAST 

648 

1555 





1556 

REP 

3 

LAST, 

380 

15563 

REP 

8 

LAST 

576 

155635 

REP 

45 

LAST 

647 

15564 





15565 





15566 

REP 

1 



1557 

REP : 

168 

LAST 

647 

1558 

REP 

27 

LAST 

628 

1559 

RBP 

40 

LAST 

643 

1560 

REP 

41 

LAST 

648 

1561 

REF 

3 

LAST 

647 


L 


24.2454 

24.2455 

24.2456 

24.2457 

24.2460 

24.2461 

24.2462 

24.2463 

24.2464 

24.2465 

24.2466 
24 , 2487 

24.2470 

24.2471 

24.2472 

24.2473 

24.2474 

24.2475 

24.2476 

24.2477 

24.2500 

24.2501 


3 4715 0 


CAP 

PIVB 

0 5475 1 


1C 

CENTRAN 

01457 0 


ADRE8 

DV4TTEMP 

01664 1 


acres 

DELVCIL 

0 3127 0 


1C 

SERVXT 

0 6006 1 

P47BODY 

1C 

INTPRET 

77775 1 


VLOAD 


15332 1 



HI6ZBROS 

03675 0 


STORE 

DBLVIMJ 

03865 1 


STORE 

DELVCIL 

77778 1 


EXIT 


3 4782 0 

P47BOD 

CAP 

PRIO15 

0 5103 0 


1C 

PRIOCHNO 

0 5301 0 


TC 

PHASCMNG 

05024 1 


OCT 

05024 

15000 0 


OCT 

15000 

3 2346 1 

P47 /DSP 

CAP 

V1683 

0 4555 0 


TC 

BANKCALL 

20624 0 


CADR 

OOPLAg-I 

0 4106 1 


TC 

ootopoch 

0 4106 1 


TC 

ootopoch 

1 2461 1 


TCP 

P47BCDY 


20*35 OCT. 28,1988 PANDORA .080 PAGE 048 
USER.8 PAGE NO. « B7 S3 


CLEAR DISPLAY AND AOCiMjIATOR STORAGE 
UPON INITIATION OR-ENTER-HESPCNSE 

LOVER PRIO THAN CALCNB3 l20> 

TO PREVENT INTERRUPTION OP CALCN83 

TYPE C ORCUP 4 BELOV POR NOUN 83 
PRIO 15 


RECYCLE - CLEAR ACCUMULATED velocity 
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P1563 

ROUTINE WIO-30** description 


. 




1588 

rep 

47 

LAST 

647 

87,1412 




E&V*- 

TIO 


1589 

REP 

2 LAST 

640 TO 

644 1 

155 155* 


COCNT 

24/P40 


1590 

REP 

2 

LAST 

640 

24,2502 

0 2252 

0 

TIGAVEG 

TC 

P41/P40 

TASK <4.37 PROTECTS) 

1591 

REP 

1 



24,2503 

1 2304 

0 


TCP 

P41RHJSP 

P41 

1592 

REP 

2 

LAST 

640 

24,2504 

3 2351 

1 


CAP 

V06N40 

INBLANK DISPLAY 

1593 

REP 

6 

LAST 

646 

24,2505 

55«145 

1 


TS 

JtVWOEDl 


1594 

REP 

1 



24,2506 

3 2340 

1 


CAP 

ffiC24.96 


1595 

REP 

28 

LAST 

647 

24,2507 

0 5140 

1 


TC 

WAITLIST 


1590 

REP 

48 

LAST 

049 

87,1412 




0SA*= 

TIO 


159T 

REP 

3 

LAST 

210 

24,2510 

02521 

0 


2CADR 

TIG-5 


1597 





24,2511 

50067 

0 





1598 

REP 

23 

LAST 

569 

24,2512 

4 6211 

1 


CS 

SIX 

4.6 = TIG-5 < 2496CS), PRECHECK (-oCS) 

1599 

REP 

3 

LAST 

646 

24,2513 

0 4114 

1 

TIGPHS 

TC 

NHrFHAS? 

BITOY PROA P41HEDSP <P41> WITH A=-4, OR 

1600 





24,2514 

00004 

0 


OCT 

4 

PROA TIGCN (P4T> WITH A=-2 

1601 

REF 

2 

LAST 

530 

24,2515 

10 763 

1 

PRETHECk CCS 

PHASES 

HAS SERVICER BEEN RESTARTED 

1602 

REP 

28 

LAST 

646 

24,2516 

1 5213 

0 


TCP 

TAStfVER 

YES, DOJT START ANOTHER CUE 

1603 

REP 

40 

LAST 

624 

24,2517 

0 4574 

0 


TC 

PQSTJLMP 


1604 

REP 

2 

LAST 

212 

24,2520 

76604 

1 


CADR 

PREREAD 
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P180S KXrrlNB 44TI0-5** DESCRIPTION 


16242 

REP 

49 

LAST 

649 

®7 ,1412 

162S 

REP 

3 

LAST 

648 

24,2521 

1626 

REP 

29 

LAST 

649 

24,2522 

162T 

REP 

29 

LAST 

646 

Efl,1486 

1628 

REP 

3 

LAST 

211 

24,2523 

1628 

HEP 




24,2524 

1629 

20 

LAST 

562 

24,2525 

1630 

REP 

7 

LAST 

649 

24,2528 

1631 

REP 

14 

LAST 

645 

24,2527 

1632 





24,2530 

1633 





24,2531 

1634 

REP 

5 

LAST 

*644 

24,2532 

1635 

REP 

22 

LAST 

553 

24.2S33 

1636 

REP 

6 

LAST 

207 

Et, 1427 

1637 

HEP 

2 

LAST 

207 

24,2534 

1637 





24,2535 

1638 

HEP 

29 

last 

649 

24,2538 


EHAfAc- TIO 


3 2776 0 TIG-S 

CAP 5 SEC 

0 5140 1 

TC WAITLIST 

02537 1 

EBAf4c= QAFOVmi 
2 CADR TIG-o 

50066 1 

4 4702 1 

CS BIT9 

55«145 1 

TS PVWOTOi 

0 5281 1 

TC 2IH90NG 

40074 0 

OCT 40074 

00033 1 

OCT 00033 

3 4675 1 

CAP PRIO20 

0 5042 1 

TC PMVAC 

02404 0 

PBA>4C= TOO 

2CADR S40.13 

34067 1 

1 5213 0 

TCP TASKO/ER 


20*35 OCT. 28,19*8 PAM30RA .080 PAOB 650 
US8WS PAGE NO. H g] 33 


WILL CAUSE V99 PLAai 


A, 4.T = TIG-0 (SOOCS) 

A, 3.3 = S40.13 IPRIO20I 





V 







11 

L P40-P4T USBR«S PAGE NO. 12 E? S3 

P183* aOUTINES **TIO-0** AND **ICNITICN** description 


1848 

«EP 

30 

LAST 

650 

26,1468 




EBANK= 

DAPDATRl 

task, 4.7 PHASE, OR 4.77 C-OCS) IN R40 

18485 

HS» 

2 

LAST 

195 

24,2537 

4 0103 

1 

TIG-0 

CS 

PLAOWRDt 

SET ION PLAG 

18486 

RES' 

21 

LAST 

639 

24,2540 

7 4876 

0 


MASK 

BIT13 


1648T 

HEP 

3 

LAST 

651 

24,2541 

26 103 

1 


ADS 

PLAGWOt 


1649 

HEP 

4 

LAST 

651 

24,2542 

30 103 

0 


CAE 

PLAOfflDT 

CHECK ASTN FLAG FOR V99 RESPONSE 

1650 

HEP 

23 

LAST 

498 

24,2543 

7 4677 

1 


MASK 

BIT 12 


1851 





24,2544 

0 0006 

1 


EXTEND 



1652 

HEP 

30 

LAST 

650 

24,2545 

1 5213 

0 


BzP 

w sko/er 

WAIT FOR V99P 

16522 

HEP 

3 

LAST 

649 

24,2546 

3 2351 

1 


CAP 

V06N40 

CLEAR THE V99 ( IN CASE OP A RESTART 

16524 

HEP 

8 

LAST 

650 

24,2547 

55«145 

1 


TS 

NVWOBDl 

DURING THE V 99 SEOUENCE) 

1653 

HEX 

46 

LAST 

648 

24,2550 

0 5301 

0 


1C 

mASCHNG 

V 99 P HAS CCME ALREADY, DO IGNITION NOW 

1654 





24,2551 

00614 

1 


OCT 

00614 

A, 4.61 = IGNITION L-oCS) TEASE OLD 

1660 

HEP 

14 

LAST 

643 

24,2552 

30 032 

0 

ICNITICN 

CAE 

CDUX 

SAVE FOR ROLL, DAP REFERENCE OGAD 

1661 

HEP 

1 



24,2553 

55*450 

0 


TS 

OGAD 

V 99 PJOB (CLOCKJOfl) sets up ignition 

1662 





24,2554 

0 0006 

1 


EXTEND 


TASK ( 4 . 61 PROIECTICN) 

1663 

HEP 

19 

LAST 

577 

24,2555 

3 0025 

0 


DCA 

TIME2 

FOR RESTARTS 

1664 

HEP 

4 

LAST 

169 

24,2556 

53*337 

0 


DXCH 

TEVENT 


1665 

HEP 

XO 

LAST 

583 

24,2557 

4 0101 

0 


CS 

P1AQWHD5 

SET ENGKNFTG 

1666 

HEP 

35 

LAST 

577 

24,2560 

7 4704 

1 


mask 

BIT7 


166T 

HEP 

11 

LAST 

651 

24,2561 

26 101 

0 


ADS 

FIAGWRDs 


1668 

HEP 

22 

LAST 

651 

24,256 2 

3 4676 

1 

SPSCN 

CAP 

BIT13 

TURN ON SPS ENGINE 

1669 





24,2583 

0 0006 

1 


Extend 



16T0 

HEP 

22 

LAST 

584 

24,2584 

05 011 

1 


wor 

DSALMOUT 


16T1 

HEP 

21 

LAST 

650 

24,2565 

3 4702 

0 

IMPULCHK CAP 

BIT9 

CHECK FOR IMPULSIVE Burn 

16T2 

HEP 

8 

LAST 

474 

24,2566 

7 0076 

1 


mask 

PLAGWRD2 


16T3 

HEP 

148 

LAST 

584 

24,2567 

10 000 

0 


CCS 

A 


16T4 

HEP 

1 



24,2570 

1 2655 

1 


TCP 

IMPLBUHN 

IMPULSIVE 

16T5 

HEP 

13 

LAST 

538 

24,2571 

4 0102 

0 


CS 

FLAQWRD6 

NON- IMPULSIVE, SET STRUILSV FOR STEERUU, 

16T6 

HEP 

23 

LAST 

651 

24,2572 

7 4676 

0 


MASK 

BIT13 


16TT 

HEP 

14 

LAST 

651 

24,2573 

28 102 

0 


ADS 

FTAQflRDe 


16T8 

HEP 

9 

LAST 

532 

24,2574 

4 4105 

0 

PREP1VC 

CS 

OCT60000 

RESET T5 BITS 

16T9 . 

HEP 

15 

LAST 

651 

24,2575 

7 0102 

0 


MASK 

PLAOWRD6 


1680 

HEP 

16 

LAST 

651 

24,2576 

54 102 

0 


TS 

PLACWRD6 


1681 





24,2577 

0 0006 

1 


EXTEND 


KILL RCS 

1682 

HEP 

1 



24,2600 

3 2360 

0 


DCA 

T5IDL24 


1683 

HEP 

8 

LAST 

539 

24,2601 

53*313 

0 


DXOI 

T5LOC 


1684 

HEP 

20 

LAST 

608 

24,2602 

A 8214 
0_\4114 

1 


CS 

THREE 

4.3 = DOIVCCN (40CS) 

1685 

HEP 

4 

LAST 

649 

24,2603 

1 


TC 

NEOTHASE 


1686 





24,2604 

00004 

0 


OCT 

4 



V 




ASSEMJLB REVISION 249 OP ACT, PROGRAM COLOSSUS BY NASA 2021111-041 

P40-P4T 


168T REE 
1088 


REE 40 LAST 
REE 2 LAST 
REE 128 LAST 
REP 2 LAST 
REP io LAST 
REP IT LAST 
REP 31 LAST 
REP 18 LAST 


REP 21 LAST 651 
REP 65 LAST 618 


REP 2 LAST 181 


REE 15 LAST 648 
REP 5 LAST 651 


1704 REP 14 LAST 5TT 

1705 REP g LAST 539 

1708 

1T0T REP 1 

( 1T08 REP 9 LAST 651 


1709 

REF 

2 

LAST 

652 

mo 

1711 

REE 

24 

LAST 

651 

1712 

REP 

19 

LAST 

652 

1713 

REP 

149 

LAST 

651 

1714 

1715 

1716 

1717 

REP 

REF 

REP 

1 

1 

12 

LAST 

197 

1718 

REF 

3 

LAST 

197 

1T19 

REP 

31 

LAST 

651 

1720 

REP 

9 

LAST 

651 

1721 

REP 

18 

LAST 

415 

1722 

REP 

10 

LAST 

652 

1T23 

REP 

129 

LAST 

652 

1724 

1725 

REF 

2 

LAST 

179 




20*35 OCT. 28,1968 PANDORA .080 PACE 952 
UffilUS PACE NO. 13 Be S3 


24,2805 

0 5156 0 

TC 

24,2806 

00050 1 

Dec 

24,2807 

4 4712 0 

DOIVCCN Cs 

24,2810 

55«654 0 

TS 

24,2811 

3 4714 1 

CAE 

24,2612 

55«681 0 

TS 

24,2813 

4 4105 0 

CS 

24,2814 

.7 0102 0 

mask 

24,2815 

8 4674 0 

AD 

24,2818 

54 102 0 

TS 

24,2617 

3 8214 0 

CAE 

24,2820 

54 001 1 

TS 

24,2821 

4 0000 0 

COM 

24,2822 

52 765 1 

DxOt 

24,2823 

4 4715 1 

CS 

24,2624 

0 4114 1 

TC 

24,2825 

00004 0 

OCT 

24,2826 

3 4672 0 

CAP 

24,2627 

54 030 0 

TS 

24,2830 

0 0006 1 

extend 

24,2831 

3 3001 0 

dca 

24,2632 

53«313 0 

DxCH 

24,2633 

0 5158 0 

TC 

24,2834 

00240 1 

Dec 

24,2835 

3 4676 1 

dostrull cap 

24,2838 

7 0102 0 

mask 

24.2837 

10 000 0 

CCS 

24,2840 

0 2648 1 

ICR 

24,2841 

0 2651 1 

ICR 

24,2642 

0 0006 1 

EXTEND 

24,2643 

3 4714 1 

DC A 

24,2844 

52 761 0 

DXCH 

24,2645 

1 5213 0 

END 1(27 7CF 

24,2646 

4 0076 1 

STEERULL Cs 

24,2647 

7 4700 0. 

mask 

24,2850 

26 076 1 

ADS 


EIXDELAY 

40 


BITl 

TVCPHASB 

ZERO 

TVCEXPHS 

oc-raoooo 

FLAOOTD6 

BIT15 

PLAowroe 


-PKASEg 


ElVE 

NEwPKASB 

4 


PIXOHAY 


A 

STEERUU, 

UAGEORE 


TASKCVER 
FIAGWRDz 
BIT l 1 
FIAGWRDz 


24,2651 3 4714 1 IXAGEOFP CAP ZERO 

24,2852 0 0006 1 EXTEND 

24,2653 01 005 0 WRITE CHAN5 


0.4 SECOND DELAY FOR THRUST BUILDUP 
SET TVCpHAsE - TVCDAPON CALL (FRESHDAP) 
SET TVCEXECUTIVE PHASE 


SET T5 BITS TO INDICATE TVC TAKEOVER 
BITS 15,14 = 10 


6.3 = CUKTASK (lOOCS), DROPPING PRE 4 o.6 
•HICH IS HANDLED NOW BY REDOTVC 


4.5 = DOSTRLLL <160 C S) 


SET TIMB5 FOR STARTING RIGHT AWAY 


(TVCDAPCN) 

( K ILIjS RCS DAP) 


0.4 + 1.6 = 2.0 SEC FOR IXJAGE-OPF AND 
STEERING (IP NCN- IMPULSIVE) 


ctieck sthullsw for impulsive burn 


NQ4- IMPULSIVE, STEERING AND ULLAGE OFF 
IX I AGE OFF (CNLY, OR AGAIN) 


KILL GROUP 4 (DP NBGo = -0,»0> 


SET STEBRSW 


ZERO CHANNEL 5 





ASSB«LE REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 



L 

P40- 

P47 








1T2S 

REF 

159 

LAST 

644 

24,2654 

0 0002 

0 

tc 

0 

1T2T 

REF 

25 

LAST 

652 

24,2655 

4 4676 

0 

IMPLBURN CS 

BIT13 

1T2T1 

REF 

20 

LAST 

652 

24,2656 

T 0102 

0 

mask 

FLAOSTDa 

1T2T2 

REF 

21 

LAST 

653 

24,2657 

54 102 

0 

TS 

FLAoraDa 

17273 

REF 

2 

LAST 

641 

24,2660 

0 3304 

0 

TCR 

Er SETTER 

1728 

REP 

50 

LAST 

650 

B7.1412 



ehank- 

TIO 

1729 





24,2661 

0 0006 

1 

EXTEND 


1730 

REF 

7 

LAST 

650 

24,2662 

3 1430 

1 

DCA 

TOO 

1731 

REP 

51 

LAST 

653 

24,2663 

53«413 

1 

PxCH 

TIG 

1732 





24,2664 

0 0006 

1 

EXTEND 


1733 

REF 

20 

LAST 

651 

24,2665 

3 0025 

0 

DCA 

TD«2 

1734 

REF 

52 

LAST 

653 

24,2666 

21«413 

1 

DAS 

TIG 

1735 

REF 

8 

LAST 

653 

24,2667 

31«430 

1 

CAE 

TGO +1 

1738 

REF 

30 

LAST 

650 

24,2670 

0 5140 

1 

1C 

WAITLIST 

1737 

REP 

9 

LAST 

653 

E7.1427 



EBANK= 

TGO 

1738 

REF 

2 

LAST 

20T 

24,2871 

02706 

1 

2CADR 

ENGINOFF 

1738 





24,2672 

50067 

0 



1739 

REF 

15 

LAST 

650 

24,2673 

0 5261 

1 

1C 

2PHSCHNG 

1740 





24,2874 

40153 

1 

OCT 

40153 

1741 





24,2675 

05014 

1 

OCT 

05014 

17412 





24,2876 

77777 

0 

DEC 

-0 

1742 

REF 

22 

LAST 

651 

24,2877 

4 4702 

1 

CS 

BIT9 

1743 

REF 

11 

LAST 

652 

24,2700 

7 0076 

1 

MASK 

FIAOWFS)2 

1744 

HEP 

12 

LAST 

653 

24,2701 

54 076 

1 

TS 

FLAQWRD2 

1745 

REP 

1 



24,2702 

0 3307 

0 

ICR 

Ee SETTER 

1748 

REF 

31 

LAST 

651 

E6.1466 



EBANK= 

DAPQATRl 

17482 

REP 

130 

LAST 

652 

24,2703 

3 4714 

1 

CAP 

ZERO 

17463 

REP 

2 

LAST 

210 

24,2704 

55«444 

0 

TS 

V9TVCNTR 

1747 

REP 

1 



24,2705 

1 2574 

1 

TCP 

PREPTVC 

1753 

REF 

10 

LAST 

653 

E7.1427 



ebank= 

TGO 

17532 

REP 

2 

LAST 

653 

24,2706 

0 3307 

0 

ENGINOFF ICR 

Ee setter 

17533 

REP 

32 

LAST 

653 

Ee.1468 



E8ANK= 

DAPQATRl 

1754 

REP 

4 

LAST 

274 

24,2707 

31«474 

1 

CAE 

CSNMASS 

1755 

REP 

3 

LAST 

194 

24,2710 

55«662 

0 

TS 

MASSTMP 

1756 

REF 

16 

LAST 

653 

24,2711 

0 5261 

1 

1C 

ZPHSCHNG 

1757 





24,2712 

00003 

1 

OCT 

00003 

1758 





24,2713 

40634 

1 

OCT 

40634 

1759 

REF 

2 

LAST 

194 

24,2714 

0 2737 

0 

DOSPSOFF TCR 

SPSOFF 

1760 

REP 

1 



24,2715 

4 2354 

0 

CS 

CCT2T/24 


20 ’35 OCT. 28,1968 PANDORA .080 PAGE 653 
USER*S PAGE NO. 14 P-6 S3 


RESET STOULLSW (COULD BE AN IMPULSIVE 
ENGINE FAIL) 


PREPARE FOR Rl OP V06N40 (CLOCKTASO 


(TPAGREE IN 340.13, LESS THAN 600CS) 


PROIECT 

A, 3.15 s ENGINOPF (TGO+i) NOIE GROUP 

C, DELTAT NEXT, TASK BELOV, IN 
-0 CS 

RESET IMPUL9W, ENGINOFF IS NOW SET UP 


SET UP V9TVCNTR IN CASE ENGINOFF (MASS- 
BACK) ARRIVES BEFORE TVCDAPCN 


E? FORCED BY 3. 15 SPOT VARIABLE DELTA-T 
TASK, 3.15 PHASE (TGO+l CS) GET Ee 


COPYCYCLE FOR MASSBACk 

KILL GROUP 3 PROTECTION OF ENGINOFF, DO 
A, 4.63 = DOSPSOFF (-oCS) 

SHUT DOWN SPS, MASS UPDATES, ETC. 

(OCTAL 2T > 
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L P40-P4T 


C 


1T81 

REP 

6 

LAST 

652 

24,2718 

0 4114 1 

TC 

NEWPHASE 

1T62 





24,2717 

00004 0 

OCT 

4 

1763 

REP 

3 

LAST 

652 

24,2720 

0 5156 0 

TC 

PIXDBLAY 

1764 





24,2721 

00372 1 

DEC 

250 

1765 

REP 

2 

LAST 

199 

24,2722 

0 2227 1 

DOTVCrCS TCR 

SETMAXDB 

1766 

REP 

25 

LAST 

540 

24,2723 

0 4633 0 

TC 

IBNKCALL 

1767 

REP 

2 

LAST 

194 

24,2724 

42010 0 

CADR 

HCSVAPCN 

17672 

REP 

26 

LAST 

654 

24,2725 

0 4633 0 

TC 

IBNKCALL 

17673 

REP 

3 

LAST 

248 

24,2728 

13207 0 

CADR 

MASSPRQP 

1768 

REP 

2 

LAST 

194 

24,2727 

0 3003 1 

ICR 

TVC ZAP 

1769 

REP 

47 

LAST 

651 

24,2730 

0 5301 0 

TC 

PHASCHNG 

1770 





24,2731 

00354 0 

OCT 

00354 

1771 

REP 

2 

LAST 

179 

24,2732 

3 4603 0 

CAP 

PRIO12 

1772 

REP 

21 

LAST 

647 

24,2733 

0 5027 1 

TC 

NCVAC 

1773 

REP 

33 

LAST 

653 

Be , 1466 


SBANK= 

DAPOATRl 

1774 

REP 

3 

LAST 

642 

24,2734 

02155 1 

2CADR 

postbubn 

1774 





24,2735 

50066 1 



1775 

REP 

32 

LAST 

652 

24,2736 

1 5213 0 

TCP 

TASK OVER 

1776 

REP 

34 

LAST 

654 

Be, 1466 


EBANK= 

DAPOATRl 

1783 





24,2737 

0 0006 1 

SPSOFP EXTEND 

1784 

REP 

21 

LAST 

653 

24,2740 

3 0025 0 

DCA 

TIME2 

' 1785 

REP 

5 

LAST 

651 

24,2741 

53«337 0 

OXCH 

TEVENT 

1786 

REP 

38 

LAST 

651 

24,2742 

4 4704 1 

CS 

BIT! 

1787 

REP 

12 

LAST 

651 

24,2743 

7 0101 0 

MASK 

FLAOWRD5 

1788 

REP 

13 

LAST 

654 

24,2744 

54 101 0 

TS 

FLAOWRD5 

1789 

REP 

26 

LAST 

653 

24,2745 

4 4676 0 

Cs 

BITl 3 

1790 





24,2746 

0 0008 1 

EXTEND 


1791 

REP 

23 

LAST 

651 

24,2747 

03 011 1 

wand 

DSALMCUT 

1792 

AlT93 

REP 

3 

LAST 

653 

24,2750 

31*444 1 

MASSBACK CAE 

V97VCNTO 

Aj.794 









1T95 





24,2751 

0 0006 1 

EXTEND 


1T96 

REP 

1 



24,2752 

7 0110 0 

MP 

©COT 

1797 

REP 150 

LAST 

652 

24,2753 

22 000 1 

LXCH 

A 

1798 





24,2754 

0 0006 1 

EXTKOT 


1799 

REP 

9 

LAST 

511 

24,2755 

7 4734 1 

MP 

1SEC 

1800 

REP 

4 

LAST 

653 

24,2756 

6 1662 1 

AD 

MASSTMP 

1801 

REP 

5 

LAST 

653 

24,2757 

55*474 0 

TS 

CSM4ASS 

1806 

REP 

32 

LAST 

652 

24,2760 

3 4674 0 

BESTIRIM CAP 

BIT15 

1807 

REP 

9 

LAST 

574 

24,2761 

7 0105 1 

MASK 

FLACWRD9 

1808 





24,2762 

0 0006 1 

EXTEND 




20 ’35 OCT. 28,1988 PANDORA .080 PAGE 854 
USER«S PA OB NO. 15 Efi S3 

4.27 = DOTVCRCS (250 Cs) 

2.5 SECOND DELAY FOR SP3 TAILCFF 

WIDE DEADBAND FOR CUTOFF TRANSIENT 

set up RCS DAP (kills TVCDAPS, SETS T5 
bits, WAITS 0.6SEC FOR TVCEXEC DIE) 

UPDATE WEIOHT/O AND MASS-PROPERTIES FOR 
RCS DAP STARTUP IN 0.6 SECONDS 

WIPE OUT TVC, TURN OFF CLCKTASK 


A, 4.35 = POSTEUHN (NOvAC, PRIO12) 
SET UP POSTBURN V16N40 JOB 


(SETMAxDB IN POST41) 


ESTABLISH SPSQFP TEvENT 


RESET ENGCNFLG 

(RESTARTS WILL SHUT DOWN SPS NOW) 
SWT DOWN SPS ENGINE 


RESTORE PART OF PRE-DGCRPMENTED MASS 
V97VCNTR = VCNTR UNLESS V97 IS 
ACTIVE. ONLY V97VCNTR IS THEN RIGHT 
VCNTR COUNTS 1/2-SECCNDS IN TVC EXEC 
HXJT, SC. AT B+3 kG/CS 


DEC 100 

CORRECTION IS ACCURATE TO 5 CS OP FLOW 
<1.44 KG OR 0.4 BITS) 

CHECK FOR SWITCHOVER, SEIECT BEST TRIMS 
FOR NEXT IGNITION (OR RETOIITION) 




V. 


ill 
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P40-P4T 


20*35 OCT. 28,1968 PANDORA .080 PAGE 655 
USSR«S PAGE NO. 16 Bo S3 


1809 

HEP 

1 




24,2763 

1 2765 0 


BZP 

DBARTRIM 

PRE-SWITCHOVER 

1810 

REP 

160 

LAST 

653 

24,2784 

0 0002 0 


TC 

O 

POST-SWITCHOVER, SO LEAVE TRIMS AS ARE 

18105 

REP 

2 

LAST 

102 

24,2765 

31*621 0 

DBARTRIM CAE 

DELP0AR 

UPDATE TRIMS WITH DELP.YBAR 

1811 

REP 

12 

LAST 

275 

24,2768 

55*425 1 


TS 

PACTCPP 


1812 

REP 

2 

LAST 

102 

24,2767 

31*623 1 


CAE 

DBLYBAR 


1813 

REP 

2 

LAST 

275 

24,2770 

55*426 1 


TS 

YACTOFP 


1814 

REP 

161 

LAST 

655 

24,2771 

0 0002 0 


TC 

O 


1815 

REP 

35 

LAST 

654 

Be, 1466 



E8ANK= 

DAPQATRl 


1816 

REP 

1 



24,2772 

03117 0 

SIEERADS 2CADR 

STEERING 


1816 

REP 

1 



24,2773 

50066 1 





181T 





24,2774 

37703 1 

.6SEC-T5 

OCT 

37703 


1818 





24,2775 

00000 1 

SSECDP 

DEC 

0 

MAKE DP 5®C 

1819 





24,2776 

00764 1 

5SEC 

DEC 

500 


18195 





24,2777 

02202 0 

OCT02202 CCT 

02202 

BITS 2,8,11 FOR CHANNEL 12 TVC/OPTICS 

1820 

REP 

36 

LAST 

655 

Be, 1466 



EBANK= 

DAPDATOi 


1821 

REP 

1 



24,3000 

02030 0 

TVCCN2C 

2CADR 

TVCDAPCN 


1821 

REP 

1 



24,3001 

36066 1 





1822 





24,3002 

0 0004 0 

-1 

INHINT 



1823 

REP 

1 



24,3003 

4 2777 0 

TVCzAP 

CS 

OCT02202 

DISABLE TVC AND OPT ERR CNTOS, REENGAGE 

1824 





24,3004 

0 0006 1 


EXTEND 


OPTICS DAC 

1825 

REP 

26 

LAST 

539 

24,3005 

03 012 1 


WAND 

CHAN12 


1828 

REP 

41 

LAST 

652 

24,3006 

4 4712 0 


CS 

BITl 

ENABLE T4RUPT OPTICS MONITOR PERMIT 

1827 

REP 

23 

LAST 

446- 

24,3007 

55*303 1 


TS 

OPTIND 

OPTICS-ZERO BUT NOT OPTICS-DRIVE 

18271 

REP 

131 

LAST 

653 

24,3010 

3 4714 1 


CAP 

zero 

CLEAR NVWORDi IN CASE CLOCkJOB WAITING 

18272 

REP 

9 

LAST 

651 

24,3011 

55«145 1 


TS 

NVWORDi 


1828 

REP 

19 

LAST 

852 

24,3012 

4 4700 0 


CS 

BITll 

Cl .BAR TIMHFLAG TO STOP CLQOASC 

1829 

REF 

5 

LAST 

651 

24,3013 

7 0103 1 


MASC 

fiagwbdt 


1830 

REP 

6 

LAST 

655 

24,3014 

54 103 1 


TS 

PIAGWRD7 


1831 

REP 

162 

LAST 

655 

24,3015 

0 0002 0 


TC 

0 


1832 

REP 

37 

LAST 

655 

B6, 1466 



EBANK= 

DAPDATRl 


1833 





24,3016 

43020 1 

UPDATEvG 

SIU 

BOV 


1834- 

REP 

3 

LAST 

645 

24,3017 

03730 0 



OIE4P1 


1835 

REP 

6 

LAST 

640 

24,3020 

01307 1 



XDELVFIjG 


1836 

REP 

1 



24,3021 

51045 1 



CALL40.B 


1837 





24,3022 

50135 0 


SLOAD 

RM7 


1838 

REP 

3 

LAST 

640 

24,3023 

03347 1 



NBRCYCLS 


1839 

REP 

1 



24,3024 

51051 1 



33TUP.9 


1840 





24,3025 

5 3375 0 


VLOAD 

VAD 


1841 

REP 

2 

LAST 

105 

24,3026 

0335 1 0 



DELVSlM 


1842 

REP 

2 

LAST 

847 

24,3027 

03433 0 



DELVREP 


1843 

REP 

1 



24,3030 

03357 0 


STORE 

delvsump 


1844 





24,3031 

77776 1 


EXIT 



1845 

REP 

79 

LAST 

644 

24,3032 

3 4712 1 


CA 

CNR 


1846 

REP 

4 

LAST 

855 

24,3033 

6 1746 0 


AD 

NBRCYCLS 


1847 

REF 

2 

LAST 

105 

24,3034 

55«7 47 0 


TS 

NBRCYCLP 







ASSBBLE REVISION 249 op aoc program colossus BY NASA 2021111-041 

L P40-P47 


L 


1049 

REP 

48 LAST 654 

1050 

REP 

3 LAST 655 

1051 

REP 

5 LAST 655 

1852 

1053 

REP 

141 LAST 648 

1054 

REP 

2 LAST 655 

1055 

REP 

3 LAST 855 

1850 



105T 

1850 

REP 

1 

1059 

REP 

4 LAST 655 

1000 



1861 

REP 

1 

1062 

REP 

1 

1063 

1064 

REF 

4 LAST 656 

1865 

HEP 

28 LAST 636 

1066 

HEP 

2 LAST 122 

186T 

1860 



1869 

18T0 

REF 

1 

1871 

REP 

4 LAST 656 

18T2 

1873 

REP 

2 LAST 645 

1874 

REP 

6 LAST 259 

1875 

REP 

23 LAST 650 

1076 

HEP 

38 LAST 655 

1877 

REP 

1 

1077 

REP 

1 

1870 

REP 

IT LAST 653 

1879 

1080 



1801 

1882 

REF 142 LAST 656 

1003 

REP 

9 LAST 536 

1884 

REF 

11 LAST 545 

1885 

REP 

9 LAST 536 

1886 

REP 

10 LAST 545 

1887 

REP 

6 LAST 634 

1888 

1889 

REP 

2 LAST 120 

1890 

REP 

9 LAST 633 

1891 

REP 

9 LAST 633 

1892 

REF 16 LAST 648 

1893 

REP 

5 (AST 656 


24,3035 

0 5301 0 

TO 

PHASCHNG 

24,3033 

10035 0 

OCT 

10035 

24,3037 

3 1747 1 

CA 

nbrcyclp 

24,3040 

55*748 1 

TS 

NBrCYCLS 

24,3041 

0 6006 1 

TO 

IN TP RET 

24,3042 

77775 1 

VLCMD 

24,3043 

0335 7 0 


delvsump 

24,3044 

03351 0 

STORE DEL V SUM 

24,3045 

TT824 1 

CALL40.8 CALL 


24,3046 

34130 1 


S40.8 

24, 304 T 

77650 1 

GOTO 

24,3050 

03730 0 


QTEMPl 

24,3051 

67214 1 

SETUP. 9 BCN 

SLQAD 

24,3052 

01310 1 


PIRSIPLO 

24,3053 

51066 0 


SURELY. 9 

24,3054 

03350 1 


NBRCYCLP 

24,3055 

74301 0 

NORM 

vxsc 

24,3056 

00047 1 


XI 

24,3057 

03705 0 


BDT 

24,3060 

53257 1 

VSR* 

VAD 

24,3061 

20563 0 


0 -140,1 

24,3062 

03646 0 


VGTPMP 

24,3063 

77651 0 

VSU 


24,3064 

0335 1 0 


DEL V SUM 

24,3065 

03721 0 

STORE 

VGPREv 

24,3068 

77778 1 

surely. 9 exit 


24,3067 

3 4676 1 

CAP 

PRIOlO 

24,3070 

0 5042 1 

TO 

PINDvAC 

E6.1466 


EBANK= 

: DAPDATRl 

24.3071 

24.3072 

02257 0 
34068 0 

2CADR 

S40.9 

24,3073 

0 5261 1 

TO 

2PHSCHNO 

24,3074 

00051 0 

OCT 

00051 

24,3075 

10035 0 

OCT 

10035 

24,3076 

0 6006 1 

TO 

INTPRET 

24,3077 

77775 1 

VLOAD 


24,3100 

01171 1 


IN 

24,3101 

27570 0 

STOVL 

RINIT 

24,3102 

01177 1 


VN 

24,3103 

17576 0 

STODL 

VINIT 

24,3104 

01205 1 


PIPTIME 

24,3105 

03474 0 

STORE 

TNIT 

24,3106 

77621 1 

BDSU 


24,3107 

03656 1 


TPASS4 

24,3110 

27423 1 

STOVL 

DELLT4 

24,3111 

15332 1 


HI0ZEROS 

24,3112 

1735 1 0 

STODL 

DELVSIJM 


20*35 OCT. 28,1968 PANDORA .080 PAGE 856 
USER.S PAGE NO. IT Ea S3 

TYPE B RESTART BELO# AND. 5.3 REREADACCS 


(NOW HANDLES ZERO PROPERLY) 




A, 1.5 = RHDQio.9, PRIO 10 

ACTIVE VEHICLE RADIUS VECTOR AT Tl 
ACTIVE VEHICLE VELOCITY VECTOR AT Tl 
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20*35 OCT. 28,1968 PANDORA .080 PAGE 65T 



L F40-P4T UffiR.3 PAOB NO. 18 Ee S3 



1894 

HEP 

17 

LAST 

656 

24,3113 

15332 1 


Hl6®ROS 


1 

1895 

REP 

6 

LAST 

658 

24,3114 

03347 1 

STORE 

nbrcycls 



1896 





24,3115 

77650 1 

GOTO 



1 

189T 

RBP 

2 

LAST 

655 

24,3116 

51045 1 


CALL40.8 



1898 

HEP 

39 

LAST 

656 

Be, 1466 


FJWMC- 

DAPDATOl 



1899 

HEP 

143 

LAST 

656 

24,3117 

0 6006 1 

steering to 

INTPRBT 


1 

1900 





24,3120 

77624 1 

CALL 




1901 

HEP 

2 

LAST 

645 

24,3121 

51016 1 


UTOATEVG 



1902 





24,3122 

77776 1 

EXIT 




1903 

HEP 

23 

LAST 

653 

24,3123 

3 4702 0 

CAP 

BIT9 

CHECK IMPULSW 


1904 

HEP 

13 

LAST 

653 

24,3124 

7 0076 1 

MASK 

PIAOWD2 



1905 

HEP 

151 

LAST 

654 

24,3125 

10 000 0 

CCS 

A 



1906 





24,3126 

1 3131 0 

TCP 

♦3 

PRE- IGNITE, REQUEST BNG-OPP, OR POST-OFF 


1907 

HEP 

41 

LAST 

649 

24,3127 

0 4574 0 

SERVXT TO 

POST JUMP 



1908 

HHP 

3 

LAST 

846 

24,3130 

77132 1 

CADR 

SERVExIT 


1 

1909 

HEP 

27 

LAST 

654 

24,3131 

3 4676 1 

CAP 

BIT13 

CHECK BNGINB-CN/-CFP 


1910 





24,3132 

0 0006 1 

Extend 




1911 

HEP 

24 

LAST 

654 

24,3133 

02 011 0 

RAND 

dsalmout 



1912 





24,3134 

0 0006 1 

EXTEND 




1913 

HEP 

3 

LAST 

648 

24,3135 

1 3127 1 

BZP 

®RVXT 

ENGINE-OFF, SO PRE- IGNITE OR POST-OFP 


1914 

HEP 

3 

LAST 

653 

24,3136 

0 3304 0 

TOR 

E7 setter 



1916 

HEP 

53 

LAST 

653 

B7.14T2 


EHANK= 

TIG 



1917 





24,3137 

0 0004 0 

D4LINT 




1918 





24,3140 

0 0006 1 

EXTEND 




1919 

HEP 

54 

LAST 

657 

24,3141 

3 1413 0 

DCA 

TIG 


I 

c 

1920 

REP 

268 

LAST 

647 

24,3142 

52 155 1 

DXCH 

MPAC 


1921 





24,3143 

0 0006 1 

EXTEND 




1922 

HEP 

22 

LAST 

654 

24,3144 

4 0025 1 

DCS 

TI*Z 



1923 

HEP 

269 

LAST 

657 

24,3145 

20 155 1 

MS 

MPAC 



1924 

HEP 

1 



24,3146 

0 7224 1 

TOR 

DPAGREE 



1925 

RBP 

270 

LAST 

657 

24,3147 

30 155 0 

CAB 

MPAC 

HESS THAN 6 (QR 4> SECONDS TO GO) 


1926 

REP 152 

LAST 

657 

24,3150 

10 000 0 

CCS 

A 

protect against neg/zro w.l. call 


1927 





24,3151 

1 3154 0 

TOP 

+3 



1928 





24,3152 

1 3154 0 

TCP 

*2 



1929 

RBP 

132 

LAST 

655 

24,3153 

3 4714 1 

CAP 

zero 



1930 

HEP 

80 

LAST 

655 

24,3154 

6 *712 1 

AD 

CUE 



1931 

REP 

66 

LAST 

652 

24,3155 

56 001 0 

XOi 

L 



1932 

REP 

133 

LAST 

657 

24,3158 

3 4714 1 

CA 

zero 



1933 

REP 

11 

LAST 

653 

24,3157 

53«430 0 

DXCH 

ICO 



1934 

REP 

12 

LAST 

657 

24,3160 

3 1430 1 

CA 

TOO *1 



1935 

REP 

31 

LAST 

653 

24,3161 

0 5140 1 

TC 

WAITLIST 



1936 

HEP 

13 

LAST 

657 

E7, 1427 


ERANK= 

ICO 



193T 

REP 

3 

LAST 

653 

24,3162 

02706 1 

2CADR 

ENGINOFP 


- 

1937 





24,3163 

50067 0 





1938 

REP 

18 

LAST 

656 

24,3164 

0 5261 1 

TO 

2PHSCHNG 



1939 





24,3165 

40153 1 

OCT 

40153 

A, 3. 15 = ENGINOFP (TCOt-1 ) NOTE GROUP 


1940 





24,3166 

10035 0 

OCT 

10035 

B, 5.3 = RERHADAC, AND START REI.O.Y 


19402 

RKF 

42 

LAST 

644 

24,3167 

0.5447 0 

TC 

DOWNFIAG 

Cl EAR IMPULSW, ENGINOFP IS NOW SET UP 

1 

19403 

REP 

2 

LAST 

199 

24,3170 

00044 1 

ADRBS 

IMPDLSW 

RESTARTS CK 


I 
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19*1 BH' 4 LAST 65T 24.31T1 1 3127 1 


2021111-041 20*35 OCT. 29,1968 PANDORA .080 PACE 858 

USBRaS PAGE NO. 19 B7 S3 

TCP SERVXT 


c 






ass&ble revision 249 of agc program colossus by kasa 2021111-041 




V 

P40-P47 









P1942 

routine 

**CLCK7ASK** description 





19542 

REF 

55 

LAST 

65T 

E7.1412 




EBANKr 

TIG 

1955 

REF 

20 

LAST 

655 

24,3172 

3 4700 

1 

clcktask caf 

BITll 

1958 

REF 

7 

LAST 

655 

24,3173 

7 0103 

1 


mac 

FlAQtf©7 

195T 

>«F 153 

LAST 

857 

24,3174 

10 000 

0 


CCS 

A 

1958 

REF 

1 



24,3175 

1 3201 

0 


TCP 

CLOCK CN 

1959 

REP 

49 

LAST 

656 

24,3176 

0 5301 

0 


1C 

FHASCHNG 

1980 





24,3177 

00006 

1 


OCT 

00006 

1981 

«P 

33 

LAST 

654 

24,-3200 

0 5213 

1 


TC 

WSKCVER 

1982 





24,3201 

0 0006 

1 

CLOCK CN 

EXTB® 


1983 

REF 

23 

LAST 

657 

24,3202 

3 0025 

0 


DCA 

TD«2 

1984 

REF 

7 

LAST 

276 

24,3203 

53«661 

0 


PXCH 

TICGO 

1985 





24,3204 

0 0006 

1 


EXTEND 


1968 

RHP 

58 

LAST 

659 

24,3205 

4 1413 

1 


DCS 

TIG 

196T 

RHP 

8 

LAST 

859 

24,3206 

21«S61 

0 


DAS 

TTOGO 

1986 

REF 

10 

LAST 

654 

24,3207 

3 4734 

0 

SE-ICLOCk cap 

1SEC 

1989 

REF 

32 

LAST 

657 

24,3210 

0 5140 

1 


TC 

WAITLIST 

19T0 

REF 

57 

LAST 

659 

E7.1412 




BBANKr 

TIG 

19T1 - 

REF 

5 

LAST 

641 

24,3211 

03172 

0 


2CADR 

CLCKTASK 

19T1 





24,3212 

50067 

0 




1972 

REF 

10 

LAST 

655 

24,3213 

11«145 

1 


CCS 

NVWORDi 

19T3 





24,3214 

1 3217 

1 


TCP 

+3 

19T4 

HP 

1 



24,3215 

1 3227 

1 


TCP 

ffiTTBe 

19T42 





24,3218 

1 3217 

1 


TCP 

♦1 

1975 

REF 

2 

LAST 

644 

24,3217 

4 2347 

1 


C S 

V06N85B 

19752 

REF 

11 

LAST 

659 

24,3220 

6 1145 

0 


AD 

NVWORDi 

19753 





24,3221 

0 0006 

1 


EXT®TO 


19754 

REF 

1 



24,3222 

1 3232 

0 


BZP 

setupdw 

1976 

REF 

2 

LAST 

575 

24,3223 

3 7684 

1 


CAF 

PRIOzt 

1977 

REF 

22 

LAST 

654 

24,3224 

0 5027 

1 


TC 

ncvac 

1978 

REF 

40 

LAST 

657 

E6,1466 




EBANK- 

DAPDATR1 

1979 

REF 

1 



24,3225 

03244 

0 


2CADR 

CLOCKJOB 

1979 

REF 

1 



24,3226 

50066 

1 




1980 

REF 

12 

LAST 

532 

24,3227 

4 0025 

1 

SETIBs 

CS 

TD«1 

1981 

REF 

1 



24,3230 

55«085 

1 


TS 

TBASEe 

1982 

REP 

34 

LAST 

659 

24,3231 

1 5213 

0 


TCP 

TASCCVER 

19822 

REF 

3 

LAST 

659 

24,3232 

3 7664 

1 

setupdyn caf 

PRI027 

198222 

REP 

24 

LAST 

656 

24,3233 

0 5042 

1 


TC 

PINDVAC 

198224 

REP 

41 

LAST 

659 

Efi , 1468 




EBANK= 

DAPDATRl 

198228 

REP 

1 



24,3234 

03237 

1 


2CADR 

D7NDISP 

198228 

HEP 

1 



24,3235 

50066 

1 




198228 

RHP 

2 

LAST 

659 

24,3236 

1 3227 

1 


TCP 

SETTBfi 


20*35 OCT. 28,1968 PANDORA .080 PAGE 659 
USBHocS PAGE NO. 20 Et S3 


IS TIMHFLAG SET 


KILL RESTART 


CHECK FOR V06N85B (P41> 

V06N85, SO UPDATE N85 FOR DWAMIC DISP 

SET GROUPS TIMEBASE 

SET IR> A JOB TO UPDATE N85 (FOR P41=V06> 

CLOSE CUT Cl.OCKTASK 


I 





^ Ass^eii? REVISION 249 OP AOC program COLOSSUS by NASA 2021111-041 

L P40-P47 


_ 19823 _RGPJ44._LAST 8ST 24,323T 

198232 243240 

”s2M 3 WST 645 24 ’ 3241 

198238 REP ! 


0 6006 .1 -DYNDISP _ TC INTPRET . 


77624 1 
S0314 1 
77776 1 
1 3254 0 


CALL 

EXIT 

TCP 


P40CPV85 

CfcNVWHDi 


20’ 35 OCT. 28,1968 PANDORA .080 PAGB 8 60 

USBR.S PAGE NO. 21 Bt S3 

UPDATE N85 POR A DYNAMIC V0BN8S IN P41, 

PRIOR TO BLANKING AND AvBG (VT6N85) 



I 



V 



I 

f 



I 



ASSBVUB REVISION 249 OP AQC PROGRAM COLOSSUS BY NASA 2021111-041 


20*35 OCT. 28,1908 PANDORA .080 PACE 661 


L F40-P4T USBfUS PAGE NO. 22 BT S3 

P1983 ROUTINE **CLOCKJCB** DESCRIPTION 


2003 

REP 

42 

LAST 

659 

£6,1466 



EI5ANK= 

DAPDATRl 


2004 

REP 

15 

LAST 

651 

24,3244 

3 0032 

0 

CLjOCkJCB ca 

CDUX 


200401 

REP 

1 



24,3245 

54 TT2 

1 

TS 

CDUSPOTX 


200402 US' 

6 

LAST 

643 

24,3246 

3 0033 

1 

CA 

CDUY 


200403 

REP 

1 



24,3247 

54 766 

1 

TS 

CDUSPOTY 


200404 REP 

0 

LAST 

563 

24,3250 

3 0034 

0 

CA 

CJXJZ 


200405 

HEP 

1 



24,3251 

54 770 

0 

TS 

CDusrora 


200406 

HEP 

169 

LAST 

648 

24,3252 

0 4555 

0 

TC 

BANKCALL 


20041 

REP 

1 



24,32S3 

47510 

0 

CADR 

auicraia 


20042 





24,3254 

0 0004 

0 

CKNWTIOi INHINT 



20044 

REP 

12 

LAST 

659 

24,3255 

11-145 

1 

CCS 

NVWORDl 

DETERMINE FUNCTION, INDICATED BT NVWORDl 

2005 

HEP 

1 



24,3256 

1 3301 

1 

TCP 

NOFLASI 


2006 

REP 

83 

LAST 

64T 

24,3257 

1 5112 

1 

TCP 

ENDCPJOB 


20 OT 

REP 

1 



24,3260 

1 3270 

0 

TCP 

ENGREQST 

SPS ENGINE-CN-ENABLE V 99 PLASH 

2008 

HEP 

4 

LAST 

651 

24,3261 

3 2351 

1 

FAILDSP CAP 

V06N40 

SPS ENGINE-FAILED V9T FLASH 

2009 

REP 

170 

LAST 

661 

24,3262 

0 4555 

0 

TC 

R4NKCALL 


2010 

REP 

13 

LAST 

628 

24,3263 

20763 

1 

CADR 

GOPLAStR 

LINUS MIKES IT A REDO, INHINT Ck 

2011 

REP 

1 



24,3264 

1 3350 

0 

TCP 

V 97 T 

TERMINATE 

2012 

REP 

1 



24,3265 

1 3403 

1 

TCP 

V9TP 

PROCEED 

2013 

REP 

1 



24,3266 

1 3432 

0 

TCP 

V 97 B 

BITER 

2014 

REP 

1 



24,3267 

1 3276 

0 

TCP 

PASTEKET 


2015 

HEP 

5 

LAST 

661 

24,3270 

3 2351 

1 

engreost cap 

V06N40 


2016 

REP 

171 

LAST 

661 

24,3271 

0 4555 

0 

TC 

BANKCALL 


2017 

REF 

14 

LAST 

661 

24,3272 

20763 

1 

CADR 

GOFLASHR 

LINUS MAKES IT A REDO, INHINT CK 

2018 

REF 

1 



24,3273 

1 3320 

1 

TCP 

V 99 T 

TERMINATE 

2019 

REP 

1 



24,3274 

1 3326 

1 

TCP 

V 99 P 

PROCEED 

2020 

HEP 

1 



24,3275 

1 3312 

0 

TCP 

V 99 E 

ENTER 

2021 

REP 

1 



24 , 3276 

3 2352 

1 

pasibhbt cap 

P40CK99 

IM4ED RETURN - SET UP V 99 OR V 97 

2022 

REP 

2 

LAST 

384 

24.32T7 

0 5415 

1 

ICR 

LINUS 


2023 

REP 

84 

LAST 

661 

24,3300 

1 5112 

1 

TCP 

ENDOPJOB 


2024 

REP 

13 

LAST 

661 

24,3301 

31-145 

0 

NOFLASI CAE 

NVWORDl 

DISPLAY NVWORDl NORMALLY 

2025 

REF 

172 

LAST 

661 

24,3302 

0 4555 

0 

TC 

BANKCALL 


2028 

REP 

1 



24,3303 

20616 

1 

CADR 

REGCDSP 


2027 

REP 

5 

LAST 

639 

24,3304 

3 4753 

1 

Et SETTER CAP 

EHANK7 


2028 

REP 

31 

LAST 

639 

24,3305 

54 003 

0 

TS 

EBANK 


2029 

REP 

58 

LAST 

659 

67,1412 



E 8 ANK= 

TIG 


2030 

REP 163 

LAST 

655 

24,3306 

0 0002 

0 

TC 

Q 


2031 . 

REP 

10 

LAST 

564 

24,3307 

3 4752 

0 

E 6 SETTER CAP 

ERANK 6 

SET UP ERANK 6 

2032 

REF 

32 

LAST 

661 

24,3310 

54 003 

0 

TS 

EBANK 


2033 

REP 

43 

LAST 

661 

£6,1466 



ERANKr 

DAPDATRl 
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2034 RHP 164 LAST- 661 . -24,3311 

20345 HEP 44 1AST 861 E 9 ,1466 

24.3312 

24.3313 

24.3314 

24.3315 
24,3318 
24,3317 

Be, 1466 

24.3320 

24.3321 

24.3322 

24.3323 

24.3324 
24,3323 

24.3326 

24.3327 

24.3330 

24.3331 

24.3332 

24.3333 

24.3334 

24.3335 

24.3336 

24.3337 

24.3340 

24.3341 

24.3342 
E6 , I486 

24.3343 

24.3344 

24.3345 
24,3348 
24,3347 

e 6,1474 

24.3350 

24.3351 

24.3352 

24.3353 

24.3354 

24.3355 

24.3356 


2035 

2036 

2037 
20372 

HEP 

ii 

i LAST 

857 

2036 

HEP 

3 

LAST 

654 

2039 

HEP 

2 

LAST 

642 

20392 

HEP 

45 

LAST 

662 

2040 

2041 

2042 
20422 

HEP 

20 

LAST 

662 

2043 

HH' 

4 

LAST 

662 

2044 

2045 

HHP 

5 

LAST 

643 

2046 

HEP 

6 

LAST 

659 

2047 

HEP 

24 

LAST 

651 

2048 

20485 

HHP 

HEP 

154 

1 

LAST 

659 

20486 

HEP 

25 

LAST 

662 

20487 

HHP 

9 

LAST 

662 

2051 

HEP 

10 

LAST 

662 

2052 

2053 

HHP 

28 

LAST 

657 

2054 

REP 

2 

LAST 

662 

2055 

REP 

42 

LAST 

655 

2058 

ref 

33 

LAST 

659 

2057 

REP 

46 

LAST 

662 

2958 

2058 

REP 

2 

LAST 

210 

20605 

RH* 

6 

LAST 

661 

20606 

REP 

14 

LAST 

661 

2061 

REP 

85 

LAST 

661 

20665 

REP 

6 

LAST 

654 

2067 

2068 
2069 

RS* 

21 

LAST 

662 

2070 

REP 

43 

CAST 

662 

2071 

REP 

4 

LAST 

429 

2072 

REP 

2 

LAST 

210 

2073 

REP i 

86 

[AST 

662 


. 0 0002 0 


— TC 

O 



EBA*c= HAPCATRl 

' 0 5261 1 

V99B 

TC 

2PHSCHNG 

00006 1 


OCT 

00006 

05024 1 


OCT 

05024 

27000 1 


OCT 

27000 

0 3002 0 

V99EJCB 

TCR 

TVCzAP -1 

1 2163 0 


TCP 

P40RCS 



EBANk 

= DAPOATR1 

0 5 261 1 

V99T 

TC 

2PHSCHNG 

OOOQ8 1 


OCT 

00006 

05024 1 


OCT 

05024 

27000 1 


OCT 

27000 

0 3002 0 

V99TJOB 

TCR 

TVCZAP -1 

1 2204 1 


TCP 

POST41 

0 0004 0 

V99P 

INHINT 

30 103 0 


CAE 

FLAGWRD7 

7 4877 1 


mask 

BIT12 

10 000 0 


CCS 

A 

1 3345 1 


TCP 

V99P/TIO 

3 4677 0 

ASTNV99P CAF 

BIT12 

26 103 1 


ADS 

FIAGWRD7 

30 103 0 


CAE 

FLAGWHDr 

7 4676 0 


MASK 

BITl 3 

0 0008 1 


extend 

1 3345 1 


BZP 

V99P/TIG 

3 4712 1 

BflVggPI CAP 

BITl 

0 5140 1 


TC 

waitlist 



BBANK= 

DAPDATRi 

02552 1 


2CADR 

IGNITION 

50066 1 




3 2351 1 

V99P/TIG CAF 

V06N40 

55«145 1 


TS 

NVWORDl 

1 5112 1 

ENIV99P 

TCP 

ENDOPJCB 



ERANK= 

CSMASS 

0 5261 1 

V97T 

TC 

2PHSCHNG 

00006 1 


OCT 

00006 

40674 0 


OCT 

40674 

3 4712 1 


CAF 

BITl 

0 5130 0 


TC 

TWIDCXE 

03357 0 


ADRES 

V 97 TIASK 

1 5112 1 


TCP 

ENDOPJCB 
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KILL PRE4 0.6 /CLCKTASK PROTECTION 
C, PRIORITY NEXT, JOB BELOW 

WIPE OUT 1VC, CLCKTASK 
V16NB5 POST-BURN OPERATIONS 


(ENTRY FRCM V97T FLOW TOO) 

KILL PRE 4 0.6 /CLCKTASK PROTECTION 
C, PRIORITY NEXT, JOB BELOW 

WIPE OUT TVC J CLCKTASK 
AvEGExIT, SETMAXDB, GOTOPOCH 

CHECK AS1N FIAG FOR PRIOR V99P 


YES, THIS MUST BE A RESTART ENTRY 
SET ASTN FLAG 

CHECK IGN FLAG FOR TIG-o ARRIVAL 

NO, CLEAR THE V99 AND WAIT FOR TIG-0 

TIG-0 HAS CCME ALREADY 
SET UP IGNITION HERE 

CLEAR THE V99 FLA 31 AND WAIT FOR TIG-0 


KILL GROUP 6 (ClXKTASK) 

A, 4.67 = V97TIASK (-0 Cs> , TEASE NOW 

KEEP EBANK6 FOR MASSES, SPSOFF, ETC. 
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663 




L 

P40- 

-P4T 









USER.S PAGE NO. 24 Be S3 

20T4 

RBP 

7 

LAST 

662 

E6.1474 




EBANKi 

: CS44ASS 


20T5 

RHP 

134 

LAST 

657 

24,3357 

3 4714 

1 

V97TCASK CAP 

Z&BO 

disable clockjob 

20T8 

REP 

15 

LAST 

662 

24,3380 

55«14S 

1 


TS 

NVWORDl 


20TT 

HEP 

1 



24,3361 

3 2381 

1 


CAP 

3FCOT 

3 SECONDS OP MOOT (2-4 SEC BNGBPAIL 

2078 

REF 

6 

LAST 

663 

24,3362 

6 1474 

1 


AD 

CSWASS 

DETECTION) NOT LOST BECAUSE THRUST 

2079 

REP 

5 

LAST 

654 

24,3363 

55 <*662 

0 


TS 

MASSTMP 

FAILED. COPYCYCLE FOR MASSBACK 

2080 

REP 

50 

LAST 

659 

24,3384 

0 5301 

0 


TC 

IHASCHNG 


2081 





24,3365 

05014 

1 


CCT 

05014 

C, DELTA T NEXT, TASK BELOW, IN 

2082 





24,3366 

77777 

0 


DEC 

-0 

-0 cs 

2083 

REP 

3 

LAST 

653 

24,3387 

0 27 37 

0 


ICR 

SPSOFP 

MTUXWN SPS ENGINE, MASS UPDATE, ETC. 

2084 

REP 

51 

LAST 

663 

24,3370 

0 5301 

0 


TC 

FHASOHNG 


2085 





24,3371 

00714 

0 


CCT 

OOT14 

A, 4.71 = V97TRCS (250 CS) , TEASE CLD 

2086 

REP 

4 

LAST 

654 

24,3372 

0 5156 

0 


TC 

FIXPELAY 

DEI AY 2.5 SECONDS FOR (POSSIBLE) TAIL- 

2087 





24,3373 

00372 

1 


DEC 

250 

CFP (FALSE THBUST-LOSS) 

2088 

REP 

47 

LAST 

662 

E6.1466 




EBANKr 

DAPOATRl 


2089 

REP 

27 

LAST 

654 

24,3374 

0 4633 

0 

V97TRCS 

TC 

IBNxCALL 

RCS DAP IN 0.6SEC, SETTING T5 BITS TO 

2090 

REP 

3 

LAST 

654 

24,3375 

42010 

0 


CADR 

ICSDAPCN 

kill TVCExEC/TVCROLIDAP starts 

2091 

REP 

' 4 

LAST 

659 

24,3378 

3 7664 

1 


CAP 

PRIOzT 

set UP V 99T FOR TVCzAp AND POST41 ( SET- 

2092 

REP 

23 

LAST 

659 

24,3377 

0 5027 

1 


TC 

NOVAC 

MAxDB AND GOTOPOOH) 

2093 

REP 

48 

LAST 

663 

E6.1466 




EBANK= 

OAPOATRl 

FRANKS FOR SETMAxDB IN POST41 

2094 

REP 

2 

LAST 

661 

24,3400 

03320 

0 


2CADR 

V99T 


2094 





24,3401 

50066 

1 





2095 

REP 

35 

LAST 

659 

24,3402 

1 5213 

0 

ENIV97T 

TCP 

wscover 


2096 

REF 

4 

LAST 

654 

E6.1444 




BBANK= 

V97VCNTR 


2097 

REP 

52 

LAST 

663 

24,3403 

0 5301 

0 

V97P 

TC 

FHASCHNG 


2098 





24,3404 

40734 

0 


OCT 

40734 

A, 4 .T3 = V97PXASK (-0 CS) , TEASE NOW 

2099 

REP 

44 

LAST 

662 

24,3405 

3 4712 

1 


CAP 

BITl 


2100 

HEP 

5 

LAST 

662 

24,3406 

0 5130 

0 


TC 

TWIDDLE 


2101 

REP 

2 

LAST 

210 

24,3407 

03411 

0 


adres 

V97PWS< 


2102 

REF 

87 

LAST 

662 

24,3410 

1 5112 

1 


TCP 

BTOOPJCB 


2103 

REP 

5 

LAST 

663 

®6 , 1444 




ebank- 

V9TVCNTR 


2104 

REP 

6 

LAST 

863 

24,3411 

31«444 

1 

V97PTASC 

CAE 

V97VCNTR 

GET MASS UPDATES (TVCExEC) GOING' AGAIN 

2105 

REP 

2 

LAST 

103 

24,3412 

55«653 

1 


TS 

VCNTO 

(ERRORS IP PLASE THRUST-LOSS AND/OR 

A2106 











POOR SYNCH OF MANUAL ENGINE-ON AND 

A2107 











THE VERB 97 PROCEED) 

2108 

REF 

7 

LAST 

682 

24,3413 

3 2351 

1 


CAP 

V06N40 

REDISPLAY V06N40 

2109 

REF 

16 

LAST 

663 

24,3414 

55«145 

1 


TS 

NVWORDl 


2110 

REP 

41 

LAST 

844 

24,3415 

0 5435 

0 


TC 

UPPLAG 

SET IDLEFAIL TO AliXW R41 -BYPASS, IN 

2111 

REP 

1 



24,3416 

00030 

1 


ADRES 

IDLEFAIL 

CASE OF UNFAVORABLE S40.8 SYNCH 

2112 

REP 

42 

LAST 

663 

24,3417 

0 5435 

0 


TC 

UPPLAG 

SET SIEERSW TO RE-ENABLE STEERING 

2113 

REP 

1 



24,3420 

00042 

1 


ADRES 

STEERS* 


2114 

REP 

53 

LAST 

663 

24,3421 

0 5301 

0 


TC 

pkaschng 


2115 





24,3422 

00134 

1 


OCT 

00134 

A, 4.13 = H40ENABL (200 CS), TEASE OtD 

2116 

REF 

5 

LAST 

663 

24,3423 

0 5156 

0 


TC 

PIXOELAY 

WAIT 2 SECONDS, THEN 

2117 





24,3424 

00310 

0 


Dec 

200 




V ■ 
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2118 

REF 

5 

LAST 

622 

2119 

REF 

43 

LAST 

657 

2120 

REF 

2 

LAST 

663 

2121 

2122 

REF 

54 

LAST 

683 

2123 

REP 

36 

LAST 

883 

2124 

REF 

6 

LAST 

684 

2125 

2126 

REF 

55 

LAST 

684 

2127 

REP 

45 

LAST 

663 

2128 

REF 

34 

last 

662 

2129 

REP 

59 

LAST 

661 

2130 

2130 

REP 

2 

LAST 

210 

2131 

REP 

88 

LAST 

663 

2132 

REP 

60 

LAST 

664 

2133 

REP 

5 

LAST 

233 

2134 

REF 

61 

LAST 

664 

2135 

REF 

8 

LAST 

863 

2136 

REP 

17 

LAST 

663 

2137 

REP 

3 

LAST 

653 

2138 

REP 

9 

LAST 

663 

2139 

REP 

2 

LAST 

663 

2140 

REF 

10 

LAST 

664 

2141 

REP 

6 

LAST 

663 

2142 

2143 

REF 

56 

LAST 

664 

2145 

HEP 

4 

LAST 

663 

2146 

2147 

. REF 

57 

LAST 

664 

2148 

2149 

REP 

6 

LAST 

663 

2150 

REP 

49 

LAST 

663 

2151 

REP 

46 

LAST 

664 

2152 

REP 

35 

LAST 

664 

2153 

HEP 

2 

LAST 

641 

2154 

REP 

2 

LAST 

212 


2154 

2155 

2156 
*2157 

2158 

2159 

2160 
21602 


REP 

REP 


28 LAST 663 
4 LAST 663 


REP 22 LAST 662 


E7.1777 


ERANX 

= WOCARES 

24,3425 

0 5447 0 

R40ENABL 1C 

DOSNFLAG 

24,3426 

00030 1 

ACRES 

IDLEPAIL 

24,3427 

0 5301 0 

1C 

PHASCHNO 

24,3430 

00004 0 

OCT 

00004 

24,3431 

1 5213 0 

BTOV97P TCP 

•msxcvER 

87,1777 



= IMOCARES 

24,3432 

0 5301 0 

V97B TC 

PHASCHNO 

24,3433 

40534 1 

OCT 

40534 

24,3434 

3 4712 1 

CAP 

BITl 

24,3435 

0 5140 1 

1C 

waitlist 

87,1412 


EBANK: 

: TIG 

24 , 3436 

03441 0 

2G4DR 

V97ETASK 

24,3437 

50087 0 



24,3440 

1 5112 1 

TCP 

fNDOPJCB- 

87,1412 


ERANX= 

: TIG 

24,3441 

4 4112 0 

V 97 BWSC CS 

0CT24 

24,3442 

55«412 0 

TS 

TIG 

24,3443 

3 2351 1 

CAP 

V06N40 

24,3444 

55«145 1 

TS 

NVWQRDi 

24,3445 

0 3307 0 

TCR 

E6 SETTER 

86,1474 


erank= 

CSMMASS 

24,3446 

3 2361 1 

CAP 

3rtX3T 

24,3447 

6 1474 1 

AD 

CS44ASS 

24,3450 

55«662 0 

TS 

MASSTMP 

24,3451 

0 5301 0 

TC 

PHASCHNO 

24,3452 

00754 1 

OCT 

00754 

24,3453 

0 2737 0 

SPSOPP 97 TCR 

SPSOFF 

24,3454 

0 5301 0 

TC 

PHASCHNO 

24,3455 

00114 0 

OCT 

00114 

24,3456 

0 5156 0 

TC 

PIXOBLAY 

24,3457 

00372 1 

DEC 

250 

86 , 1466 


EBANKz: 

DAPDATRl 

24,3460 

3 4712 1 

V 97 E 40.6 CAP 

BITl 

24,3461 

0 5140 1 

TC 

WAITLIST 

P-6 , 1447 


ERANK= 

CNTR 

24,3462 

02040 1 

2CADR 

PRE 40.6 

24,3463 

40066 0 



24,3464 

0 4633 0 

TC 

IBNKCALL 

24,3465 

42010 0 

CADR 

rcsdapcn 

24,3466 

0 5 261 1 

TC 

2PHSCHNO 


24,3467 

24.3470 

24.3471 


00026 0 
05014 1 
77777 0 


OCT 

OCT 

DEC 
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RE-ENABLE R40 By CLEARING IDLEFAIL 

KILL GROUP 4 

*, 4.53 = V 97 ETASK (-0 Cs), TEASE NOW 


00026 

05014 

-0 


FORCE Rl CP V06N40 TO HEAD 59 X 59 
REDISPLAY VO 6 N 40 

RETURN TO EBANK6 POR REST OP V 97 ETASK 

3 SECONDS OP MXJT (2-4 SEC ENGFAIL 

DETECTION) NOT LOST BECAUSE THRUST 
FAILED COPYCYCLE POR MASSBAQc 

*, 4.75 = SPSOPF 97 (_o Cs>, TEASE OLD 


*, 4.11 = V 97 E 40.6 (250 cs>, tbasb ao 

DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL- 
OFF (FALSE THRUST-LOSS) 


USE S40.6 RESTART ENTRY TO TRIM ENGINE 

RCS DAP IN 0.6SEC, SETTING 15 BITS TO 
KILL TVCEXEC/TVCRCUDAP STARTS. 
LEAVE NARROW DEADBAND POR REIGNITE 

A, 6.2 = PRE40.6 (-oCS), CLCKTASK (lSEO) 
C, DEIjTAT NEXT, TASK BELOW, IN 
-0 CS 
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2101 

DBF 

5 

(AST 

646 

24,3472 

4 4761 

1 

QUICK ION CS 

PRIO 14 

2162 

HEP 

n 

LAST 

662 

24,3473 

7 0103 

1 

MASK 

FLAGSRD7 

21S3 

RBF 

29 

LAST 

662 

24,3474 

6 4676 

1 

AD 

BIT13 

2164 

REE 

12 

LAST 

665 

24,3475 

54 103 

1 

TS 

FLAQjfD7 

216S 

REP 

T 

LAST 

664 

24,3476 

0 5156 

0 

TO 

FIXDBLAY 

21CS 





24,3477 

00036 

1 

DEC 

30 

216T 

REP 

24 

LAST 

657 

24,3500 

4 4702 

1 

V99FLASH CS 

BIT9 

2168 

REP 

IB 

LAST 

664 

24,3501 

55*145 

1 

TS 

NVWOTOl 

2169 

REP 

23 

LAST 

664 

24,3502 

0 5261 

1 

TO 

2PHSCHNG 

21T0 





24,3503 

40774 

1 

OCT 

40774 

21T1 





24,3504 

00033 

1 

OCT 

00033 

2172 

HEP 

• 

LAST 

650 

24,3505 

3 4675 

1 

CAP 

PRIO 20 

21T3 

HEP 

25 

LAST 

659 

24,3506 

0 5042 

1 

TO 

PINDVAC 

21T4 

REP 

14 

LAST 

657 

B7.1427 



SHANK: 

TOO 

21T5 

RBF 

3 

LAST 

650 

24,3507 

02404 

0 

2CADR 

S40.13 

21T5 





24,3510 

34067 

1 



21T6 

REP 

37 

LA ST 

684 

24,3511 

1 5213 

0 

ENDV97E TCP 

TASK OVER 

A21TT 










R21TB 

MOD NO2 


LOO SECTION 

P40-P47 





CLEAR ASTNFLAG AND SET IONFLAG FOR 
IMMEDIATE V99 RESPONSE 


DELAY TO ALLOW TIMS FOR PRE40.8 


CAUSE V99 TO FTA3! 


A, 4.77 = TIG-0 <-0CS) WASE FOR PREF1VC 
A, 3.3 = 340.13 IPRIO 20> 

SET up TIMBBUHN 


WAIT FOR CLOCRJOB (IMMEDIATE) REACTION 
TO FLAaiING V99 RESPONSE 


MOD BY ZELDIN 
FUNCTIONAL DESCRIPTION 

COMPUTE INITIAL THRUST DIRECTICNOTT) AND INITIAL VALUE OF VG 
VECTOR! VGTIG1 . 

CALLING SBOtfNCE 
L CALL 

L»1 340.1 

NORMAL EXIT MORE 

at L+2 OP CALLING SEOUENCE (GOTO L+2> NORMAL RETURN OR 
ERROR RETURN IF NOSOFLAO 
SlDROUMNES CALLED 
CSMPRBC 
INITVEL 
CALCGRAV 
MIDGIM 

ALARM QR ABORT EXIT MODES 

1*2 OP CALLING SEQURNCE.UN SOLVABLE CONIC IF NOSOFlAGrl 

erasable initialization required 

WBICHT/G ANTICIPATED MAG. OF vailCLE MASS SP BI6K0W 
XDeLVFUJ 1=DELW-V MANEUVER, 0=AIMPT STEER 

IF DELTA -V MANEUVER 


DELVSAB 
RTIG 
VTIG 
CS1EBR = 


SPECIFIED DELTA-V REQUIRED IN 
INERTIAL COORDS. OP ACTIVE VHIICLE 
AT TIME OF IGNITION 
MAG. OP DBLVSIN 
POSITION AT TIME OF IGNITION 
VELOCITY AT TIME OP IGNITION 
0 DP 


VECTOR B7M/CS 
DP B7M/CS 
VECTOR B29M 
VECTOR B7M/CS 
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R220T 

R2208 

R2209 

R2210 

R2211 

R2212 

R2213 

R2214 

R221S 

R2216 

R221T 

R2218 

R2219 

R2220 

R2221 

R2222 

R2223 

R2224 

R2225 

R2226 

2227 

2228 
2229 


.OUTPUT 


IP AIMPOINT STORING 
IP AIMPT STEER 

TIG TINE OP IQ4ITICN 

KWRG POSITION TARGET TINE 

C STEER r ECSTEERtGR 0) Dp Bi 
TPASS4 - TINE OP ARRIVAL AT AIMPOINT 


DP B28CS 
VECTOR B29M 


UT 

votig 

DGLVLVC 

P 

BDT 

-(DT 

RTIG 


DEBRIS QTEMPi 

MPAC.QPHET 
PUSILIST 
RTX2.RTX1 

REP 1 


1/2 LNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REP COOR 
INITIAL VALLE CP VELOCITY 

TO BE GAINED (INERT. COOT).) VECTOR BtM/CS 

VOTIG IN LOC. VERT. COORDS. BtM/Cs 

NO! INAL, THRUST FOR ENG USED FOR S40.13 DP B7 M-NEwT 
V REOUIRai AT TIG -V REQUIRED AT (TIG-2SEC) 

F0R 840.13 VECT B7M/CS 

CALC IN S40.lB(AIMPT) POR 340.2,3 VECTOR B29M 
POSITION AT TIME OP IGNITION 


2230 

REP 

1 



2231 





2232 

REF 

2 

LAST 

656 

2233 

REP 

1 



2234 

REP 

3 

LAST 

656 

2235 





2236 

REP 

8 

LAST 

633 

223T 

REF 

T 

LAST 

655 

2238 

REF 

1 



2239 





2240 





2241 

REP 

5 

LAST 

631 

2242 

REP 

11 

LAST 

656 

2243 





2244 

REF 

6 

LAST 

632 

2245 

REP 

2 

LAST 

122 

2246 

REP 

, 7 

LAST 

666 

2247 

REP 

12 

LAST 

656 

2248 





2249 





2250 





2251 

REP 

1 



2252 





2253 

REP 

3 

LAST 

121 

2254 

REP 

2 

(AST 

100 


14,2002 


bank 

14 

16,2000 


SBTLOC P40S1 

16,2000 


bank 




COUNT 

16/S40.1 

16,2000 

77214 0 S40.1 

SET 

VLQAD 

16,2001 

01070 1 


PIRSTFU3 

16,2002 

11450 0 


LQs ZEROS 

16,2003 

03705 0 

STORE 

BDT 

16,2004 

43020 1 

STQ 

BOP 

16,2005 

03057 0 


OIE4P 

16,2006 

01347 0 


XDELVFLG 

16,2007 

34073 1 


S40.1B 

16,2010 

77201 1 

SBTPD 

VLOAD 

16,2011 

00001 0 


0 

16,2012 

03640 0 


VTIG 

16,2013 

03576 0 

STORE 

VINIT 

18,2014 

53435 0 

VXV 

UNIT 

16,2015 

03632 0 


RTIG 

16,2016 

27713 1 

STOVL 

UT 

16,2017 

03632 0 


RTIG 

16,2020 

03570 0 

STORE 

RINIT 

16,2021 

65236 0 

VSO 

POOL 

16,2022 

00045 0 


36D 

16,2023 

56205 0 

DMP 

DO V 

16,2024 

34127 1 


THETACCN 

16,2025 

41205 0 

DMP 

DMP 

16,2026 

Q3654 0 


delvsab 

16,2027 

03076 0 


WEICHT/G 




LANBERT 

EXTERNAL DELTA V 


UP IN UT 



V ' 
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P40-P4T 



2255 





16,2030 

T7671 

1 

2255 

REP 

3 

LAST 

640 

16,2031 

03727 

0 

22ST 





16,2032 

24017 

1 

2258 

W 

9 

LAST 

631 

16,2033 

03646 

0 

2259 





16,2034 

74241 

0 

2260 

■BP 

3 

LAST 

666 

18,2035 

03713 

1 

2261 

RHP 

4 

LAST 

667 

16,2036 

03713 

1 

2262 





16,2037 

41552 

0 

2263 





16,2040 

65245 

1 

2264 

wp 

10 

LAST 

667 

16,2041 

03646 

0 

2265 





16,2042 

00017 

1 

2266 





16,2043 

63356 

1 

2267 





16,2044 

00007 

0 

2268 





16,2045 

53435 

0 

2269 

BPS' 

5 

LAST 

867 

16,2046 

03713 

1 

2270 





16,2047 

45581 

1 

2271 

RHP 

6 

LAST 

641 

16,2050 

50056 

1 

2272 





16,2051 

65256 

0 

2273 





16,2052 

00017 

1 

2274 





16,2053 

74346 

0 

2275 





16,2054 

74255 

0 

2276 

REP 

7 

LAST 

667 

16,2055 

03721 

0 

2277 





16,2056 

00045 

0 

2278 





16,2057 

5 3352 

0 

2279 





16,2060 

77626 

0 

2280 

REP 

8 

LAST 

667 

16,2081 

74056 

1 

2281 





16,2062 

77656 

1 

2282 

RHP 

6 

LAST 

667 

16,2063 

27713 

1 

2283 

MSP 

9 

LAST 

667 

16,2064 

03721 

0 

2284 





16,2065 

43006 

0 

2285 

REP 

9 

LAST 

639 

16,2066 

01072 

0 

2286 





16,2067 

77624 

1 

2287 

RHP 

2 

LAST 

633 

18,2070 

10653 

0 

2288 





18,2071 

77650 

1 

2289 

REP 

9 

LAST 

666 

16,2072 

03657 

0 

2290 





16,2073 

45345 

1 

2291 

REP 

62 

LAST 

664 

16,2074 

03413 

1 

2292 

HEP 

1 



16,2075 

36001 

0 

2293 

RHP 

35 

LAST 

642 

16,2076 

14041 

1 

2294 

RHP 

10 

LAST 

656 

16,2077 

03656 

1 

2295 





16,2100 

77625 

0 

2296 

REP 

38 

LAST 

667 

16,2101 

00041 

1 

2297 

REP 

10 

LAST 

656 

16,2102 

37423 

0 

2298 

RHP 

2 

LAST 

632 

16,2103 

61663 

0 

2299 





16,2104 

77775 

1 

2300 

Reap 

13 

LAST 

832 

16,2105 

03612 

1 

2301 

REP 

7 

LAST 

687 

16,2108 

17713 

1 

2302 

REP 

63 

LAST 

687 

16,2107 

03413 

1 


DDV 

P 

8TCVL 14D 


S4O.10 


DOT 


VSL2 

BVSU 


SIN 

VXV 

VX9C 

STOVL 

UNIT 

COS 

VAD 

VSL2 

STADR 

STORE 

UNIT 

STCVL 

PUSH 

CALL 

GOTO 

DLOAD 

STOOL 

DSU 

STCALL 

VtXMD 

STOOL 


D6LVSIN 

VXSC 

UT 

ITT 

PUSH 

POOL 

DELVSIN 

14D 

PDVL 

6D 

UNIT 

UT 

STADR 

VGTIG 

POOL 

140 

VXSC 

vxsc 

VGTIG 

360 

VAD 

VOTIG 


UT 

VGTIG 

SET 

AVFLAG 

MIDGIM 

oimp 

DSU 

TIG 

TWODT 

TDECi 

TPASS4 

TOGCi 

DELLT4 

AGAIN 

VIPRIMB 

UT 

TIG 


20*35 OCT. 28,1968 PANDORA .080 PAGE 66T 
USBR«S PAGE NO. 28 Efl S3 


( DELIA V. UP) UP SCALED AT 2<+7) P.D.L. 0 
DELTA VP SCALED AT 2(+7> P.D.L. 6 


UNIT(VPXUP)SINCWETAT)IN VGTIG 
UNIT! DELTA VP) IN P.D.L. 6 


VO IGNITION SCALED AT 2U7IM/CS 

THRUST DIRECTION SCALED AT 2Ul) 

VGTIG IN LV COOR AT 2(+T>M/CS IN DEI -VL VC 

LAMBERT 



V. 
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L 

P40-P4T 



2303 

REP 

37 

LAST 

667 

2304 




2305 

REP 

11 

LAST 

867 

2306 

REP 

11 

LAST 

667 

230T 

REP 

3 

LAST 

667 

2308 




2309 

REP 

16 

LAST 

633 

2310 

REP 

10 

LAST 

667 

2311 





2312 

REP 

10 

LAST 

667 

2313 

REP 

3 

LAST 

667 

2314 





2315 





2316 

REP 

1 




20 *35 OCT. 28,1968 PANDORA .080 PAGE 808 
USSRaS PAGE NO. 29 ' Be 83 


2320 HEP 1 


HEP 5 LAST 656 
HEP 6 LAST 630 


REP 12 LAST 630 
HEP 10 LAST 631 


REP 21 LAST 631 
REP 8 LAST 666 


REP 8 LAST 666 
REP 13 LAST 666 
REP IT LAST 630 
REP 8 LAST 666 
REP 12 LAST 666 


REP 18 LAST 657 


REP i 

REP 4 LAST 628 


REP 1 


REP 3 LAST 545 




16,2110 

00041 1 

STORE TDBCi 

16,2111 

77621 1 

BDSU 

16,2112 

03656 1 

TPASS4 

16,2113 

37423 0 

SICALL D0LT4 

16,2114 

61663 0 

AGAIN 

16,2115 

41575 0 

VLOAD RJSI 

16,2116 

03846 0 

DBLVEET3 

16,2117 

03721 0 

STORE VOTIG 

16,2120 

45014 0 

SET CALL 

16,2121 

01072 0 

AvPIAG 

16,2122 

10653 0 

MIDGIM 

16,2123 

52001 1 

SPTPD GOTO 

16,2124 

00001 0 

0 

16,2125 

61718 0 

CALCUT 

16,2126 

00024 1 

THBWCCN 2DEC .31830989 

16,2127 

13714 1 

30,2000 


®TLOC P40S3 

30,3657 


BANK 

COUNT 24/S40.1 

30,3657 

04000 0 

eP4<45)H 2DBC . 12g 

30,3660 

00000 1 

30,3681 

00707 1 

BP4<10)H 2DBC .027777777 

30,3682 

03434 1 

30,3663 

45020 1 

aoain sto CALL 

30,3664 

03730 0 

O'lE'tPi 

30,3665 

27022 1 

THISPREC 

30,3666 

68134 1 

SKA, 2 SXA,1 

30,3667 

03746 1 

K1X2 

30,3670 

03745 1 

KDCl 

30,3671 

77775 1 

VLOAD 

30,3672 

00001 0 

RATT 

30,3673 

03832 0 

STORE RTIG 

30,3674 

27570 0 

STCVL RINIT 

30,3675 

00007 0 

VATT 

30 , 3676 

03640 0 

STORE VTIG 

30,3677 

035 76 0 

STORE VISIT 

30,3700 

67201 0 

SETPD SLOW 

30,3701 

00001 0 

0 

30,3702 

15332 1 

HlezEROS 

30,3703 

43125 0 

POOL BCN 

30,3704 

21660 1 

EP4I45 )H 

30 , 3705 

03705 0 

N0R4S1 

30,3708 

61711 1 

♦3 

30,3707 

77745 1 

DLOAD 

30,3710 

21662 0 

EP4(10)H 

30,3711 

45006 0 

PUSH CAIL 

30,3712 

22000 1 

INITVEL 






I 


V. 
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234T 





30,3713 

52001 

1 



GOTO 

2348 





30,3714 

00001 

0 



0 

2349 

REF 

6 

LAST 

668 

30,3715 

03730 

0 



OTEMPl 

2350 





30,3716 

45175 

0 

CALCUT 

VLOAD 

CALL 

2351 

REP 

9 

LAST 

668 

30,3717 

03832 

0 



RTIG 

2352 

REF 

2 

LAST 

528 

30,3720 

77256 

0 



CALCGRAV 

2353 





30,3721 

70372 

0 


VSLi 

V/SC 

2354 

REF 

1 



30,3722 

21761 

1 



200CS 

2355 





30,3723 

52315 

1 


PDVL 

VSU 

2356 

REP 

14 

LAST 

667 

30,3724 

03612 

1 



VIPRIEB 

235T 

REP 

8 

LAST 

667 

30,3725 

03713 

1 



ITT 

2358 





30,3726 

52341 

0 


V/SC 

VSU 

2359 

REP 

2 

LAST 

689 

30,3727 

21761 

1 



200CS 

2360 





30,3730 

72561 

0 


VX9C 

VSL2 

2361 

REP 

5 

LAST 

644 

30,3731 

03703 

0 



CSIEBR 

2362 





30,3732 

24015 

0 


STCVL 

12D 

2363' 

REP 

11 

LAST 

668 

30,3733 

03721 

0 



VOTIG 

2364 





30,3734 

41456 

0 


UNIT 

PUSH 

2365 





30.373S 

74241 

0 


DOT 

VXSC 

2366 . 





30,3738 

00015 

0 



12D 

236 T 





30,3737 

00001 

0 



0 

2368 





30,3740 

51352 

1 


VS.2 

BVSU 

2369 





30,3741 

00015 

0 



120 

23T0 





30,3742 

14015 

0 


STCDL 

120 

237 i 

REP 

4 

LAST 

667 

30,3743 

03727 

0 



P 

2372 





30,3744 

56 261 

1 


SRR 

DDV 

2373 





30,3745 

21605 

1 



4 

2374 

REP 

3 

LAST 

666 

30,3746 

03076 

0 



WEIGHT/G 

2375 





30,3747 

63316 

0 


DSO 

PDVL 

2376 





30,3750 

00015 

0 



120 

2377 





30,3751 

77638 

1 


vso 


2378 





30,3752 

75421 

1 


BDSU 

SORT 

2379 





30,3753 

76581 

1 


vxsc 

VSLi 

2380 





30,3754 

53455 

0 


VAD 

UNIT 

2381 





30,3755 

00015 

0 



120 

2382 

REP 

9 

LAST 

669 

30,3756 

37713 

0 


SICALL ITT 

2383 

REP 

10 

LAST 

667 

30,3757 

03857 

0 



OTEMP 

2384 





30,3760 

01440 

0 

200 CS 

2DBC 

200 B-12 

2384 





30,3761 

00000 

1 





20*35 OCT. 28,1968 PANDORA .080 PAGE 869 
USERaS PAGE NO. 30 Be S3 


GDBLWT IN MPAC AT 2<+7)M/CS 
G AT 2(-5> M/CS.CS 


B.C SCALED AT 2(-5) POL 12D 
UO PtX, o SCALED AT 2(+l) 


O PM, 120 SCALED AT 2<-5> 


F/MASS SQUARED PDL 6 AT 2<-10)M/(CS.CS> 



V 
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P40-P47 


20*35 OCT. 28,1988 PANDORA .080 PAGB 670 
USBRaS PACE NO. 31 Be 83 


>2385 

>2386 

R238T 

>2388 

>2389 

>2390 

>2391 

>2392 

>2393 

>2394 

>2395 

>2396 

B239T 

>2398 

>2399 

>2400 

>2401 

>2402 

>2403 

>2404 

>2405 

>2406 

>240T 

>2408 

>2409 

>2410 

>2411 

>2412 

>2413 

R2414 

>2415 

>2416 

>2417 

>2418 

>2419 

>2420 

>2421 

>2422 

2423 


PROGRAM DESCRIPTION 340.2,3 DATE 15, NO/, 66 
MOD NO 2 LOG SECTION P40-P4T 

MOD BY ZELDIN 
FUNCTIONAL DESCRIPTION 

OOMPUIE GIEKAL ANGLES IP THRUSTING OCCURRED WITH PRESENT IMU 
ORIENTATION, WINGS LEVEL SPACECrAFT.HEADS UP 
compute x axis cp engine kill 

CCMPUIE PREFERRED IMJ ORIENTATICN(XSCREP) 

for this calculation .assume x axis of sc along ut initially 

YSC = tNIT(XXR),ZSC=LNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT 
NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REP 
COORDS. WILL BE PREFERRED IRI ORIENTATION. 

COMPUTE DESIRED THRUST DIRECTION IN S4 COORDS 
CALLING SEOUENCE 
L CALL 
L+l S40.2.3 
NORMAL EXIT MODE 

AT L+2 OP CALLING SEQUENCE (GOTO L+2> 

SUBROUTINES CALLED 
CALCGA 

ALARM OR ABORT MODES 
NONE 

ERASABIE INITIALIZATION REQUIRED 


OUTPUT 


DEBRIS 


PACTOPP TOTAL PITCH TRIM ANGLE 

YACTOPF total yaw trim angle 

UT DESIRED THRUST DIRECTION 

RTIG POSITION AT TIME OP IGNITION 

enozflao on=rcs OFPrSPs 


SP AT 1.0795111 REV. 

SP AT 1.0795111 REV. 

VECt.B2M/(CS.CS) 
VECT. B 2 9M 


UNIT VEDT. ALIGNED WITH ENG BELL IN SC COOR Bi 
UNIT VECTORS ALIGNED WITH PREFERRED IMU Bi 


2424 

REP 

2 

LAST 

640 

2425 





2426 

REF 

1 



2427 





2428 

REP 

10 

LAST 

669 

2429 

REP 

18 

LAST 

612 

2430 





2431 

REF 

11 

LAST 

669 

2432 

REP 

5 

LAST 

612 


SCAXIS 
XSCREP 
YSCREF 
ZSCrEP 
GIEBAL ANGLES IN THEMAD 

POINTVS4 ON IT VECT ALONG DESIRED THRUST DIRECTION IN 34 Bi 

PUSHL I ST, OPRET, MPAC 
OTFMP TEMP. ERASABLE 
24,3512 



2433 

2434 


24,2000 

24,3512 

24.3512 

24.3513 

24.3514 

24.3515 

24.3516 

24.3517 

24.3520 

24.3521 


64375 

03713 

01736 

44172 

03657 

0 3 357 
43001 1 

00001 0 


S40.2.3 


BANK 24 
SETIXC P 40 S 

bank 

COUNT* SJ/S40.2 
VLOAD MXV 
UT 

REF SWAT 
STQ 
OTEMP 
POINTVEM 
BCN 
0 


VSLl 

STORE 

SETPD 


THRUST IN SM AT 2 



V 
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L 

P40- 

P47 




2435 

REP 

3 

LAST 

644 

24,3522 

243# 

REP 

1 



24,3523 

243T 





24,3524 

2438 

REP 

19 

LAST 

668 

24,3525 

2439 





24,3526 

2440 

REP 

3 

LAST 

655 

24,3527 

2441 





24,3530 

2442 

REP 

1 



24,3531 

2443 





24,35 32 

2444 

HEP 

1 



24,3533 

2445 





24,3534 

2448 





24,3535 

244T 





24,3538 

2448 

REP 

13 

LAST 

655 

24,3537 

2449 





24,3540 

2450 

HEP 

2 

LAST 

671 

24,3541 

2451 





24,3542 

2452 

REP 

1 



24,3543 

2453 





24,3544 

2454 





24,3545 

2455 

HEP 

1 



24,3546 

2458 





24, 3547 

245T 





24,3550 

2458 





24,3551 

2459 





24,3552 

2480 





24,3553 

2481 





24,3554 

2482 





24,3555 

2483 





24,3556 

2464 

REP 

1 



24,3557 

2465 

REP 

2 

LAST 

671 

24,3560 

2466 





24,3561 

248T 





24,3562 

2488 





24,3563 

2469 

HEP 

3 

LAST 

671 

24,3564 

24T0 





24, 3565 

24T1 





24,3566 

24T2 





24,3567 

24T3 

REP 

4 

LAST 

671 

24,3570 

24T4 





24,3571 

24T5 

HEP 

1 



24,3572 

2476 

REP 

5 

LAST 

671 

24,3573 

2477 





24,3574 

2478 

REP 

2 

LAST 

671 

24,3575 

2479 

REP 

2 

LAST 

671 

24,3576 

2480 





24,3577 


00704 

1 


B4G2PLAO 

51633 

0 


S40.2,3B 

77745 

1 

DLQAD 


15332 

1 


HI6ZEROS 

87206 

1 

PUSH 

SXWD 

03027 

1 


YACT0FP 

72405 

0 

DMP 

S,1 

11672 

1 


TOIMSCAL 

41415 

1 

DAD 

PUS! 

11674 

1 


YBIAS 

65 346 

0 

COS 

POOL 

41556 

1 

SIN 

PUSI 

77735 

0 

SL04D 


03026 

0 


PACTOPP 

72405 

0 

DMP 

SLl 

11672 

1 


TRIMSCAL 

41415 

1 

DAD 

PUSI 

11676 

0 


PR IAS 

65 346 

0 

COS 

PDOL 

41556 

1 

SIN 

PUSI 

14323 

0 

STCDL 

Z3CREP 

00007 

0 


6 

72405 

0 

DMP 

S-l 

00005 

1 


4 

65 276 

1 

DC CMP 

POOL 

00007 

0 


6 

72405 

0 

DMP 

SLl 

00003 

1 


2 

77666 

1 

VDBP 


14307 

0 

STCDL 

XSCREP 

00323 

0 


ZSCREF 

72405 

0 

DMP 

SLl 

00005 

1 


4 

41325 

0 

PDOL 

DMP 

00323 

0 


ZSCREF 

00003 

1 


2 

57552 

1 

SLl 

DC CMP 

77666 

1 

VDEP 


14323 

0 

STCDL 

ZSCREF 

77666 

1 

VDEP 


14315 

0 

STCDL 

YSCRBF 

00323 

0 


ZSCREF 

65325 

0 

PDOL 

POOL 

00315 

0 


YSCRBF 

00307 

0 


XSCREP 

77666 

1 

VDEP 



U®RaS PAGE NO. 32 Efl S3 


ZERO POL 0 


COS( Y +Y0) PDL 2 
SIN(Y *Y0) POL 4 


COSIP +P0> POL 8 
SINIP +P0> POL eD 
SINCP+PO) 


-SIN(Y+Y0)COS(P+P0) POL 10 


PD POINTER AT 6 NEW SC X AXIS SCALED AT 

PD POINTER AT 4 NEW SCz AXIS SCAIED AT 2 
PD POINTER ATO NEW SC Y AXIS SCALED AT 2 
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2481 

2482 

2483 

2484 

2485 
2488 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 
2498 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 


REP 15 LAST 612 
REP 11 1AST 670 


USSR-S PAGE NO. 33 go 83 


REP 10 LAST 669 


REP 1 


REP 3 LAST 671 


REP 4 LAST 672 
REP 3 LAST 671 


REF 4 LAST 672 
REP 6 LAST 671 


REP 7 IAST 672 


12 LAST 


6 LAST 
16 LAST 
12 LAST 
5 LAST 


11 LAST 


2 LAST 
5 LAST 


6 LAST 


8 LAST 
13 LAST 


REP 1 


REP 12 LAST 672 




24.3600 

24.3601 

24.3602 

24.3803 

24.3804 
24,3605 

24.3806 

24.3807 

24.3810 

24.3811 

24.3812 
24,3613 

24.3814 

24.3815 

24.3816 
24,3617 
24,3620 

24.3821 

24.3822 

24.3623 

24.3624 
24,3825 
24,3628 
24,3827 

24.3630 

24.3631 
24,36 32 
24,3833 

24.3634 

24.3635 
24,3638 
24,3837 
24,3640 
24,3841 

24.3642 

24.3643 

24.3644 

24.3645 

24.3646 

24.3647 

24.3650 

24.3651 

24.3652 
24,365 3 
24,3854 

24.3655 

24.3656 

24.3657 

24.3660 

24.3661 


2735 1 0 
03713 1 
53515 0 
03632 0 
57435 1 
00001 0 
41456 0 
77624 1 
51652 1 
57435 1 
00001 0 
63372 1 
00307 0 
78505 0 
00001 0 
24307 0 
00315 0 
76505 0 
00001 0 
24315 0 
00323 0 
76505 0 
00001 0 
00323 0 
52001 1 
00001 0 
03657 0 
77775 1 
15330 0 
2735 1 0 
03713 1 
00307 0 
53435 0 
03632 0 
34007 1 
51652 1 
00315 0 
57435 1 
00307 0 
77772 0 
34323 1 
03657 0 
46145 0 
00045 0 
51657 1 
43575 1 
00007 0 
53575 0 I 
03832 0 
53515 0 


SCAXIS 

UT 

UNIT 

RTIG 

VCCMP 

0 

PUSH 


ENGINE BELL SCALED AT 2 


S40.2.3B VLOAD 


TSTRCUT 

VCCMP 

0 

PDVL 

X9CREP 

VSLl 

0 

XSCREP 

YSCREP 

vs.i 

0 

YSCREP 

ZSCREP 

VSLl 

0 

ZSCREP 

GOTO 

0 

0TE4P 


2 RP/SC IN POL izD 


X OP PREP IXU.X OP SC IN REP COOR. AT 2 


Y OF PRBP.MJ.Y OP SC IN REP COOR. AT 2 


Z OP PREP. TMU.Z OP SC IN REP COOR. AT 2 


SICALL 


VSLl 

STCALL 


INITX 

SCAXIS 

UT 

XSCREP 

UNIT 

RTIG 

6D 

TSTRXUT 

YSCREP 

VCCMP 

XSCREP 


TSTRXUT DLOAD 


BADvCTOR VLOAD 


ZSCREP 

QTTMP 

BHIz 

360 

BADVCTOR 

RVO 

6 D 

UNIT 

RTIG 

UNIT 


ZNB AXIS IN REP COOR 




I 


V 
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*541 

2542 

2543 

2544 

2545 

2S4S 

254T 

2548 

2548 

2549 

2549 

2550 

2550 

A2S51 

R2552 

R2553 

R2554 

R2555 

R2556 

R255T 

R2558 

R2559 

R2S60 

R2561 

R2562 

R2563 

R2564 

RZS65 

H2566 

R256T 

R2568 

R2569 

R25T0 

R2ST1 

R25T2 

R25T3 

R25T4 


REF T LAST 668 


13 LAST 672 


24,3662 

24,3683 

24.3664 

24.3665 

24.3666 
24,3687 

24.3670 

24.3671 

24.3672 

24.3673 

24.3674 
24,3875 
24,3676 


03640 
53322 
53435 
03713 
77876 
00007 
77616 
21215 
12215 1 
00053 1 
07423 0 
77636 1 
4485 3 1 


VSR3 

VXV 

VCCMP 

STORE 

RVO 

TOIMSCAL 2DEC 


YBIAS 


PBIAS 


■gxc 

2DEC 


VTIG 

VAD 

UNIT 

ITT 

6 D 

1.07975111 B-i 

♦ .00263888889 YAW )«CM BIAS (+0.95 DEG, THRUST CN) 
-.00597222222 PITCH MBCH BIAS (-2.15 DEG, THRUST CN) 

REFERB«E, TOW 68.6520.3.3-40 27FEB.1968 


PROGRAM DESCRIPTION S41.1 DATE sDECee 
MOD NOl LOG SECTION P40-P47 
MOD BY ZELDIN 
PINCTICNAL DESCRIPTION 

CCMPUIE VELOCITY TO BE GAINED INITIALLY IN REP COORDS. 

TO CONTROL COORDS. 

CALLING SEQUENCE 
L CALL 
L>1 S41.1 

NORMAL EXIT MODE 

AT L +2 OF CAILING SEQUENCE 

soPRarriNEs called* 

CALCjMSC 

CDUTOIG 

ALARM OR ABORT MODES 
NONE 

ERASABLE INITIALIZATION REQUIRED 

VO IN REP. COORD. PDL L POINTER AT Lf5 .S41.1 WILL RETURN WITH’ 
POINTER AT L (L MUST BE LESS THAN OR = TO 14D) 

OUTPUT 


MPAC CONTAINS VO IN CONTROL COORDS 


DSIRIS* 


QTEMP 

OPRET 


TEMP ERASABLE 


25T6 

REP 

1 





COUNT 

25 TT 

REP 

1 



22,2000 


seuxx: 

25T8 





22,3426 


bank 

2579 





22,3426 

45020 1 S41.1 

STQ 

2580 

REP 

14 

LAST 

072 

22,3427 

03657 0 


2581 

REP 

5 

LAST 

585 

22,3430 

47432 1 


2582 





22,3431 

77775 1 

VLOXD 

2583 





22,3432 

45121 1 

MXV 

2584 

REP 

19 

LAST 

670 

22,3433 

01736 1 


25 95 

REP 

3 

LAST 

585 

22,3434 

47577 1 



VECT. B7M/CS 


22/S41.1 


CAIL 

OTEMP 

CDUTOIG 

CAIL 

REPSMMAT 

*S*NB* 
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25S8 

2587 REP 

2588 REP 

2589 

2590 REP 15 LAST 873 


2 LAST 405 
1 


2591 

2591 


22,3435 

74321 1 

WCV 

VXSC 

22,3438 

05004 0 


OUADROT 

22,3437 

05443 1 


7RNRNK14 

22,3440 

52072 0 

VS^ 

OOTO 

22,3441 

03857 0 


OTCMP 

22,3442 

24000 1 

TCNBNK14 20EC 

10. B-4 

22,3443 

00000 1 
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VO IN CONTROL COORD IN MPAC SCALED AT 
VO IN CONTROL COORDS. IN MPAC AT 2<*T> 







HI 
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P2592' NAME 540.8 - CROSS PRCDUCT STEERING 

R2593 FUNCTION • <1) UPDATES 1K3 VBLOC ITY-TO-EE-QA INED VECTOR. 

*2594 <2> GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT. 

*2595 <3> ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TINES. 

*25952 <4» INITIATES THRUST-FAIL ROUTINE, R40 

*2596 CALLING SEO CALL S40.8 

R259T INPUT VOPREV - LAST VALUE OP THE VELOC ITY-TO-BE-GW INH5 VECTOR 

*2598 PRIOR TO UPDATING IN MSTERS/CS AT +7 . 

*2599 DBLVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST NEASUMB4ENT 

*2600 IN NKTERSAIS AT +7. 

*2601 EOT - EFFECT OF RATE CP CHANGE OP REQUIRED VELOCITY AND 

R2602 GRAVITY DURING DT UPCN VELOCITY- TO-BE-GAINED IN 

*2603 NBIERS/Cs AT *7 . 

*2604 CSTEFTR _ A SCALAR OP THE STEERING LAW, SC.AT B+i, US2D FOR 

*2605 SPS AIMPOINT S1EERING MANEUVERS 

*2606 IDLEFAIL- A FLAG TO INHIBIT ( IDLE) THE THRUST-FAIL ROUTINE 

*2607' SIEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OP STEERING 

*2008 REFSMAT, DAFOATRl, PIPTIME 

R2609 EREPFRAC, ETDECAY, KPRIMEDT FOR TVC 

*2014 OUTPUT TTOGO - TIME REMAINING FOR ENGINE BURN IN Cs AT *28 

*2615 CW3GAC - DP VECTOR RATE COMAND, SC.AT 1/<2TVCDT) REVS/SEC 

R26152 VO, VGPREV, VCDISP, TOO, TIG, SCAJJTO AS NOTED IN CODING 

R26153 STEERSW, IMPULSW, NVWORDl 

R26154 REPFRAC, CNTR, vCNTR, VCNTOTMP FOR TVC CR40 INTERFACING) 

R2618 DEBRIS (MTOxC,,! 


*2617 

SUBROUTINES USED 

- *swra* 

, ALARM 





2618 

REP 

2 

LAST 

666 

16,2000 




SETOOC 

P40S1 

2619 





16,2130 




BANK 


2620 

REP 

50 

LAST 

664 

*6 , 1460 




EBWNKr 

DAPDATRl 

2621 

REP. 

1 







COUNT 

1B/S40.8 

2622 





10,2130 

44001 

0 

340. 8 

SBTPD 

STO 

2623 





16,2131 

00001 

0 

SPBITl 


OOD 

2624 

REP 

16 

LAST 

674 

16,2132 

03657 

0 



QTEMP 

2625 





16,2133 

51375 

1 


VLQAD 

BVSU 

2626 

REF 

3 

LAST 

655 

16,2134 

03433 

0 



DELVREF 

2627 

REP 

4 

LAST 

666 

16,2135 

03705 

0 



BDT 

2628 





16,2136 

TT655 

1 


VAD 


2629 

REP 

3 

LAST 

656 

16,2137 

03721 

0 



VGPREV 

2630 

REP 

3 

LAST 

122 

16,2140 

03460 

0 


STORE 

VG 

2631 





16,2141 

77646 

0 


AHvAL 


2632 

REP 

7 

LAST 

641 

16,2142 

03654 

0 


STORE 

VODISP 

2633 





16,2143 

T7776 

1 


EXIT 


2634 

REP 

58 

LAST 

664 

16,2144 

0 5301 

0 


TO 

PHASCHNG 

2635 





16,2145 

K 

O 

O 

M 

0 


OCT 

10035 

2636 

REP 

145 

LAST 

660 

16,2146 

0 6006 

1 


TO 

INTPRET 

2637 





16,2147 

77775 

1 


VLQAD 



CONSTRUCT DEI. VO, SC.AT B*7 M/CS 

VELOCITY- TO-BE-GAINED, SC.AT B+j M/CS 
FOR Display PURPOSES 

TYPE B RESTART BELCW AND 5.3 REREADAC 
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P40-P4T 


2638 

REP 

4 

last 

675 

2639 

REP 

4 

LAST 

675 

2640 





2641 

REP 

2 

LAST 

663 

2642 

HEP 

IT 

LAST 

675 

2643 

REP 

4 

LAST 

675 

2644 





2645 





26453 

REP 

1 



28454 

REP 

1 



26456 





2646 





2647 

REP 

1 



2648 

REF 

51 

LAST 

675 

2649 

HEP 

39 

LAST 

504 

2650 

REP 

155 

LAST 

662 

2651 

REP 

4T 

LAST 

664 

2652 

REP 

156 

LAST 

676 

2653 

REP 

1 



2654 

RHP 

2 

LAST 

103 

2655 

HEP 

146 

LAST 

675 

2656 





2657 

REF 

5 

LAST 

676 

2658 

REP 

5 

LAST 

675 

2659 





2690 





2661 

REP 

5 

LAST 

676 


2662 

2663 REP 

2664 REP 

2665 

2666 REP 
266T 

2668 HEP 

2669 
26T0 

26T1 HEP 

2672 

2673 

2674 HEP 

2675 

2676 

2677 HEP 

2678 

2679 RHP 

2680 
2681 

2682 RHP 

2683 


29 LAST 656 

11 LAST 593 

30 LAST 676 

1 

1 

15 LAST 665 


16.2150 

16.2151 

16.2152 

16.2153 

16.2154 

16.2155 

16.2156 

16.2157 
18,2180 
16,2161 
16,2162 

16.2163 

16.2164 

16.2165 

16.2166 
16,2167 

16.2170 

16.2171 

16.2172 

16.2173 

16.2174 

16.2175 

16.2176 

16.2177 
16,2200 
16,2201 
16,2202 

16.2203 

16.2204 

16.2205 

16.2206 
16,2207 
16,2210 
16,2211 
16,2212 

16.2213 

16.2214 

16.2215 

16.2216 
16,2217 
16,2220 
18,2221 
16,2222 

16.2223 

16.2224 

16.2225 

16.2226 
16,2227 
16,2230 


03460 
03721 
77214 
01344 
03657 
03433 
41446 
41335 
01354 
36011 1 
77621 1 
77440 
40021 
31«486 
7 4675 
10 000 
3 4712 
50 000 
31«423 
55«652 


0 6006 1 
51375 1 
03433 0 
03705 0 
77658 1 
41441 0 
03460 0 
56244 0 
40013 1 
36005 1 
41215 1 
11454 1 
70501 
00047 
60325 

00045 
00050 
77665 
5 36 6 4 

00046 
57607 1 
41405 0 
36003 1 
54335 0 
03016 0 
20617 0 
45421 1 
74347 1 
77615 0 


STORE 

BQPP 


ABvAL 

SLCMO 


BDSU 

CAE 
M»ac 
CCS 
CAP 
■vDiOC 
CAB 
TS 

1C 

TOOCALC VLQW 


IN IT 
DOT 

BPL 

DAD 

NOHM 

POOL 

BDCV 

XSU,2 

DMP' 

SLOW 


BDSU 

STORE 

DAD 


VO 

VGPREV 

VLOW 

sibbrsw 

OT04P 

DELVHBP 

PUSH 

DM? 

IVTHHESH 

BP0-9 

EXIT 

LcrmajsT 

dapoatri 

BIT14 

A 

SITl 

A 

erepprac 

repprac 

INTPRBT 

BVSU 

DELVHEP 

BDT 

PUS! 

vo 

DOV 

1NCRSVO 

2VEXHUST 

CMP 

L0DPHALP 

SRl 

XI 

NORA 

36D 

XZ 

SL* 

XI 

0 -90,2 

puai 

-PCURDT 

SR 

BTDeCAY 

14D 

SHADR 

TOO 
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SCIP TOO AND CROSS-PRCDuCT 
check POR LOTHRUST 

SC .At B-2 M/CS 

biablb TVCDAP CO tracking 

LM-CPP, LM-ON VALUE 

GET DEI , VO 

(00D) 

ANGLE S1CUID BE GREATER THAN PI/2 
DISPLAY A LARA IF NOT 

(DOT PRODUCT UP FRCM 00D) 

(MAO D6LVG) 

(00D) 

ETOECAY SC .AT B+14 CS 
TIME TO GO IN Cs. AT +28 




V 
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L 

P40- 

•PAT 
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2684 

RBF" 

7 

LAST 

656 

18,2231 

01205 1 


PIPTIMB 


2685 

REP 

64 

LAST 

667 

16,2232 

17413 1 

STCDL 

tig 


2686 

REP 

16 

LAST 

676 

16,2233 

03430 0 


TOO 


2687 





16,2234 

50025 0 

DSU 

EM4 


2688 

REP 

1 



16,2235 

38007 0 


POURSEC 


2689 

REP 

1 



16,2238 

40000 0 


840.81 


2690 





16,2237 

74375 0 XPRCDUCT VLOAD 

vxsc 


2691 

REP 

6 

LAST 

676 

18,2240 

03705 0 


EOT 


2692 

REP 

6 

LAST 

669 

16,2241 

03703 0 


CSTBBR 


2693 





16,2242 

5 2352 1 

VSL2 

VSU 


2694 

REP 

6 

LAST 

876 

16,2243 

03433 0 


DELVREP 


2695 





16,2244 

63256 0 

UNIT 

PDVL 


2696 

REP 

6 

LAST 

676 

16,2245 

0346 0 0 


VO 


2697 





16,2246 

47256 0 

UNIT 

VXV 


2698 





18,2247 

45121 1 

MXV 

CALL 


2699 

REF 

20 

LAST 

6T3 

16,2250 

1.01736 IV 

47577~1 


REP944AT 

(REF S-MAT/2) 

2700 

REP 

4 

LAST 

673 

16,2251 


*S>NB* 


2701 





16,2252 

77761 1 

VXSC 



2702 

REP 

2 

LAST 

103 

16,2253 

03245 1 


kero-cot 

(KPRIMEDT SCIAT PI/8 RAD) 

2703 

REP 

5 

LAST 

101 

16,2254 

03126 1 CMEOACLC 

STORE 

CM3GAC 


2704 





16,2255 

77650 1 

GOTO 



2705 

REF 

18 

LAST 

6T6 

16,2256 

03657 0 


OTFMP 


2706 

REP 

1 



17,2000 


SETLOC OAPS7 


2707 ' 





IT, 2000 


BANK 



2708 

REP 

1 





COUNT 

1T/S40.8 


2709 





17,2000 

00000 1 1W0DT 

2DEC 

200-0 B-28 

2 SEC 

2709 





17,2001 

00310 0 




2710 





17,2002 

77715 1 -P0URDT 

2DGC 

-800 B-18 

-4(200CS), SC .AT B+ibCs (-4 FOR SCALING) 

2710 





17,2003 

7TT77 0 




2711 





17,2004 

17602 0 2VEXHUST 2DEC 

63.020792 B-7 

2( 10338.0564 EPS), SC.AT Bvr M/CS 

2711 





17,2005 

25124 1 




2712 





17,2006 

00000 1 rajRSEC 

2DEC 

400.0 B-28 

4 SEC 

2712 





IT, 2007 

00820 0 




2713 





IT, 20 10 

00040 0 DPfl-9 

ZDEC 

1 B-9 


2713 





17,2011 

00000 1 




2714 

REP 

1 



20,2000 


SET .OC 

OAPS6 


2715 





20,2000 


BANK 



2716 

REP 

1 





COUNT 

20/S40.8 


2717 





20,2000 

77214 0 S4O.01 

SET 

VUMD 

TGO IESS THAN 4 SECCNDS 

2718 

REP 

3 

LAST 

657 

20,2001 

01066 0 


LMPULSV 

FOR ENGINE-OPP CAU, 

2719 

REF 

20 

LAST 

671 

20,2002 

15332 1 


HI6ZEROS 


2720 

REP 

6 

LAST 

677 

20,2003 

03126 1 RATEZRO 

STORE 

ttEGAC 

TVC TO ATTITUDE Hal) 

2721 





20,2004 

77778 1 

EXIT 



2722 

REP 

15 

LAST 

652 

20,2005 

3 4672 0 

CAP 

POSMAx 

inhibit switchcver/tvc eg tracking 

2723 

REF 

3 

LAST 

664 

20,2006 

55«447 0 

TS 

CNTR 
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1724 

2725 

REF 

14T 

LAST 

678 

2T26 

BEF 

3 

LAST 

876 

2727 

2728 

REF 

19 

LAST 

677 

2729 

2730 

HEP 

26 

LAST 

551 

2731 

2732 

REF 

148 

LAST 

678 

2733 

REF 

20 

LAST 

678 


2734 


2735 

REF 

3 

LAST 

664 

2736 

HEP 

21 

LAST 

678 

2737 

REP 

21 

LAST 

677 

2738 

2739 

REF 

7 

LAST 

677 

2740 

REF 

135 

LAST 

663 

2741 

HEP 

3 

LAST 

663 

2742 

REP 

2 

LAST 

103 

2743 

REF 

3 

LAST 

676 

2744 

REF 

19 

LAST 

665 

2745 

2746 

REF 

149 

LAST 

678 

2747 

REP 

4 

LAST 

678 

2748 

HEP 

22 

LAST 

678 



20,2007 

0 6006 1 

TC 

INTPRET 

20,2010 

52014 0 

CLEAR 

GOTO 

20,2011 

01264 0 


STEERSW 

20,2012 

03657 0 


OTEMP 

20,2013 

77776 1 

INCRSVO EXIT 


20,2014 

0 5537 0 

TC 

ALAR4 

20,2015 

01407 0 

OCT 

01407 

20,2016 

0 6006 1 

TC 

INTPRET 

20,2017 

77650 1 

GOTO 


20,2020 

03657 0 


OIB4P 

20,2021 

77214 0 

loihrust bcn 

vload’ 

20,2022 

00711 0 


IDLEPAIL 

20,2023 

03657 0 


OT04P 

20,2024 

15332 1 


HI6ZEROS 

20,2025 

03126 1 

STORE 

CMEOAC 

20,2026 

77776 1 

EXIT 


20,2027 

4 4714 0 

CS 

ZERO 

20,2030 

55«6S3 1 

TS 

VCNTR 

20,2031 

55*663 1 

TS 

VCNTRTMP 

20,2032 

55«652 0 

TS 

repfrac 

20,2033 

55*145 1 

TS 

NVWORDl 

20,2034 

0 6008 1 

TC 

INTPRET 

20,2035 

52014 0 

CLEAR 

GOTO 

20,2036 

01264 0 


STEERS# 

20,2037 

03657 0 


QTEMP 
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RESTARTS CK 

alarm indicating that thrust is pointing 
IN WRCNG DIRECTION. 


THRUST FAILURE CLO-OR-NO) INDICATED 
®T BY V97P. ALLOWS 1 BYPASS IN CASE OP 
UNFAVORABLE S40.B SYNCH 
START CP ENGINE-FAIL (R40) OPERATIONS 
put tvc in attitude hold 


KILL C&MASS UPDATING 
(TVCKxEC logic REQUIRES THIS TOO) 

KILL TVCTVAP CG TRIM TRACKING 

SET UP H4GINE-FAIL V97FLASH (CLOCKJOB) 


MIIBIT STEERING AND TOO CALC (MANUAL 
atmXWN IF NOT SET UP AGAIN) 
RESTARTS OC 




V. 
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P2T49 

R2T50 

R2751 

R2T52 

R2T53 

R2754 

R2T5S 

R2T56 

R2T57 

R2758 

R2759 

R2760 

R2761 

R2762 

R2763 

R2764 

R2765 

R2786 

R2767 

R2788 

R2769 

R2770 

R2771 

R2772 

R2773 

R2774 

R2775 
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tWK 840. 9 - VTOQAIN (AIMPOINT MANEUVERS ONLY) 

FUNCTION • <i» GENERATES REOUIR2D VELOCITY AND VELOCITY-TO-BE -GAINED 

VECTORS FOR USE DURING AIMPOINT MANEUVERS 
< 2 > UPDATES THE B VECTOR WHICH IS USED IN THB PINAL 
CALCULATION OP EXTRAPOLATING THE VELOC I TY-TO-BS -GAINED 
CALLING SEQ VIA PINDVAC AS NEW JCS. 


INPUT 


RNIT 
VNIT 
VRPREV 

Norrio 

D8LLT4 

WIT 

CDT/2 

DHVHEP - 


NORMS* 


OUTPUT 


VOIKMP 

can 


OOBL/2 

VRPREV 

BDT 

SlBROUHNES uan - 


- ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29. 

- ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7 

- LAST COMPUTED VELOCITY REQUIRED VECTOR IN 
METERS/CS AT +7 . 

- TI® CP IGN. USED IN TARGETTING ROUTINE Si +2 8 A 

- TRANSFER TIME FRCM PIPTI® TO TAKGBTt*28« 

- TI® OP RNIT AND VNIT IN Cs AT +28 

- HALF OP VELOCITY GAINED IN DELTA T TIMB DUE TO 
A CCE RERATION OP GRAVITY IN METERS/CS AT +7. 

CHAN® IN VELOCITY DURING LAST 2 SEC IN 
METERS/CS AT +7. 

set=central angle between rtarg and rtig is between 

185 TO 195 DEGREES 

RBSETOCEHTRAL ANGLE OUTSIDE CCNE DESCRIBED ABOVE 

- VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7. 

- INPUT CP INITIAL GUESS FOR LAMBERT FRCM S40.1 O 
OR PREVIOUS PASS THRU S40.9 

-CBlATENBSS TERM IN AVG GRAV CALC-GOBL+RSO/MJ 

- VELOCITY REQUIRED VECTOR IN METERS/CS AT »7 . 

- B VECTOR IN METERS/CS AT +7 . 

INITVEL 


2778 

REP 

3 

LAST 

675 

16,2000 



shiloc 

P40S1 

2777 





18,2257 



bank 


2778 

RHP 

7 

LAST 

657 

E6.1746 



E8ANK= 

NBHCYCLS 

2779 

REP 

1 






COUNT 

16/S40.9 

2780 

HEP 

150 

LAST 

678 

18,2257 

0 6006 

1 S40.9 

TO 

INTPRET 

2781 





18,2260 

71201 

1 

SETPD 

DLQAD 

2782 





18,2261 

00001 

0 


00D 

2783 

RHP 

2 

LAST 

666 

16,2262 

11456 

0 


I OB ZEROS 

2784 





16,2283 

77725 

1 

POOL 


2785 

BB' 

1 



16,2284 

34401 

0 


BP4<45>L 

2788 





16,2265 

71214 

0 

BCN 

DLOAD 

2787 

HEP 

5 

LAST 

668 

16,2268 

03705 

0 


NORMS!* 

2788 





16,2287 

34271 

1 


*2 

2789 

HEP 

1 



16,2270 

34403 

1 


EP4<10>L 

2790 





16,2271 

77606 

1 

PUSI 


2793 





16,2272 

45014 

0 

CLEAR 

CALL 

2794 

REP 

3 

LAST 

481 

16,2273 

00675 

0 


GUESSV 

2795 

REP 

1 



16,2274 

22002 

0 


HAvEGtES 

27951 





16 , 2275 

77776 

1 

EXIT 


27952 

REF 

59 

LAST 

675 

16,2276 

0 5301 

0 

TO 

FHASCHNG 

27953 





18,2277 

05021 

1 

OCT 

05021 


SAVE TIME BY NOT REDOING IAMRERT CALCS 
C, PRIORITY NEXT, JOB BELOV 


I 
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2T954 

27955 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 
2808 

2807 

2808 

2809 

2810 
2811 
2812 

2813 
28131 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 
2827 

. 2828 
2829 


2831 


2836 


2841 


, REP 

151 

LAST 

679 

REP 

3 

LAST 

666 

REP 

1 



REP 

15 

last 

669 

REP 

2 

LAST 

120 

REP 

3 

LAST 

658 

REP 

2 

LAST 

120 

REP 

1 



REP 

2 

LAST 

77 

REP 

7 

LAST 

677 

REP 

13 

LAST 

668 

REP 

1 



REP 

10 

LAST 

656 

REP 

8 

LAST 

677 

REP 

3 

LAST 

640 

REF 

1 



REF 

2 

LAST 

77 

REP 

2 

LAST 

656 

REF 

3 

LAST 

680 

REF 

60 

LAST 

679 

HEP 152 

LAST 

680 

REP 

4 

LAST 

880 

REF 

3 

LAST 

680 

REF 

16 

LAST 

680 

REF 

3 

LAST 

680 

REP 

4 

LAST 

680 

REP 

61 

LAST 

657 

REP 

6 

LAST 

679 

REF 

61 

LAST 

680 


16.2300 

16.2301 

10.2302 

16.2303 

16.2304 

16.2305 

16.2306 

16.2307 

16.2310 

16.2311 

16.2312 

16.2313 

16.2314 

16.2315 

16.2316 

16.2317 

16.2320 

16.2321 

16.2322 

16.2323 

16.2324 

16.2325 

16.2326 

16.2327 

16.2330 

16.2331 

16.2332 

16.2333 

16.2334 

16.2335 

16.2336 

16.2337 

16.2340 

16.2341 

16.2342 

16.2343 

16.2344 

16.2345 

16.2346 

16.2347 

16.2350 

16.2351 

16.2352 

16.2353 

16.2354 

16.2355 

16.2356 

16.2357 
16,2360 


10000 0 
0 6006 1 
77614 1 
01310 1 
34322 0 
52375 1 
03812 1 
03466 0 
45325 1 
03474 0 
034 7 8 1 


55261 1 


20222 1 
34375 1 
77761 1 
76451 0 
01207 
03705 
57535 
03747 
77640 
34342 
53575 
01171 1 
45345 1 
01205 
03450 
56205 
34377 
00043 
53361 
01215 
03646 
03646 
77776 1 

0 5301 0 
04021 0 

0 6006 1 
T7745 1 
03474 0 
27476 1 
03612 1 
03466 0 
77414 
01270 
4 4712 
55«746 
0 5301 

00001 


1 

0 

0 

0 

0 

0 

0 

0 

0 


OCT 

10000 

TC 

BCN 

INTPRET 

PIRSTPLO 

PIRSTIMB 

VLOAD 

VSU 

VIPRIf« 

VRPREV 

POOL 

DSU 

TNIT 

TNITPREV 

SL 

VXSC 

BDDV 

17D 

200C9II 

vsu 

VSLl 

am/ 2 

STORE 

BDT 


PIRSm>e SLOAD 
BM4 
VLCHD 
DLOAD 

DMP 

VXSC 


STORE 

mocncase exit 

TC 

OCT 


DC CMP 
inx2 

MOCNCASE 

UNIT 

R4 

DSU 

PIPTIf* 

NCMTIG 

DDV 

earumu 

34D 

VAD 

GCBL/2 

voreMp 

VGH34P 

PKASCHNG 

04021 


COpy40 . 9 TC INTPRET 
DLOAD 

IN IT 

STOVL TNITPREV 
VIPRIME 
STORE VRPREV 
CLEAR EXIT 

PIRSTPLG 
CNE 

NBRCYCLS 
PHASCHNO 
00001 




note no test is made to SUBTRACT GOBI, 
INSIDE 165-195 DEGREE CCNR AREA. 


C, JOB BELOar 


-2 CS 
TS 

ENDS40.9 TC 
OCT 


RHXH0.9 (RESTART) ENTRX TO END S40.9 



V 
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2842 

REP 

89 

LAST 

664 

16,2361 

1 5112 

1 

TCP 

ENDOPJCB 


28421 

REP 

153 

LAST 

680 

16,2362 

0 6006 

1 

REDG40.9 1C 

INTPRBT S40 . 

, 9 RESTARTS COB HERE TO GRACEFULLY 

28422 





16,2383 

T7775 

1 

VLOAD 


TERMINATE S40.9 SO THAT IT CAN BE 

28423 

REP 

3 

LAST 

6T9 

16,2364 

11456 

0 


L06 zeros 

SET UP WITH LATEST R.V.T NEXT PASS 

28424 

REP 

6 

LAST 

655 

16,2365 

17351 

0 

STOOL 

DBLVSUM 

(TYPE C PHASE POINTS «04021« WILL 

28425 

REP 

4 

LAST 

681 

16,2366 

11456 

0 


L06 ZEROS 

FORCE NORMAL S40.9 TBR4INATI0NS, 

28426 

REF 

9 

LAST 

680 

16,2367 

27347 

1 

STO/L 

NBrCYCLS 

RATHER THAN LOSE TINE OP BRAND NEW 

284262 

REF 

5 

LAST 

676 

16,2370 

03721 

0 


VGPREV 

PASS — QUICK OLD DATA BETTER THAN 

284264 

REP 

4 

LAST 

680 

16,2371 

03646 

0 

STORE 

VGT04P 

NCNB) NOW CAN GO THRU SEIUP.9 

28427 





16,2372 

77776 

1 

EXIT 


WITHOUT DISTURBING VGPREV 

28428 

REP 

1 



16,2373 

1 2355 

1 

TCP 

ENDS40.9 -2 STORE 0,0 COHERED NBrCYCLS, P — FIX UP S 

2843 





16,2374 

01440 

0 

200CSII 2DGC 

200 B-12 


2843 





16,2375 

00000 

1 




2844 





16,2376 

55340 

0 

PARTTMJ 2DEC* 

-3.986032 BlO B-36* 


2844 





16,2377 

61710 

0 




2845 





16,2400 

04000 

0 

EP4(4S>L 2DEC 

.125 


2845 





16,2401 

00000 

1 




2846 





16,2402 

00707 

1 

EP4<10>L 20f?C 

.027777777 


2846 





16,2403 

03434 

1 







c 
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Nflf ® 840-13 - TIK2BUHN 

P ' NCT,0N *1’ DB1BHMINE KHEIHER A GIVEN COMBINATION CP VELOCITY TO 

<5raiCE «“* « ^ ^ tSekjeficient 

AT 1112 DURING THE BURN, and 

a™ ^ resulting burn tine - ip it is short - 

and the associated tins op ths engine-upp q tojaf 

CALLING SEO VIA PINDvAC AS NEW JOB ^INE-OPF SICNAL. 

INiWr ~ !2 L ° Cm TO 858 “IN® VECTOR (METORS/C. s.) AT +7 

WSIQHT/G - MASS OP VEHICLE IK KGM AT TIO 
P - PHOim THRUST IN M.KEWTCWS AT >7 

»OT - RATO OP DECR2ASE CP VSIICL£ Miss DURING B7GINE Bure) 
INKILOGRAMS/CENTISSCa® AT +3. THIS SCALING MAY 
RB * JlRR KDIPICATICN FOR SATURV BURNS 
ODIWir MALSI - ZERO FOR STEERING 

- a® FOR ATTITLDB HCLD 
TOO - TIMS TO BURN IN CENTISSCCNDS AT +14 
*® QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TCRWo tv 

irilggramametori /ccentisecond+centi second j 55 ” ms 

Cll M NFtarnTM _ r. n< , nA t +T™ 
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2866 

REP 

17 

2667 

REP 

1 

2868 

2869 

2870 

REE 

154 

2871 

2872 

REF 

4 

2873 

2874 

REP 

12 

2875 

2876 

REP 

37 

2877 

REF 

4 

2878 

REP 

38 

2879 



2880 

HEP 

1 

2881 

2882 

REP 155 

2883 

REP 

1 

2884 

2885 

REP 

4 

2886 

REP 

2 

2887 

2888 
2889 

REP 

1 

2890 

REP 

1 

2891 

2892 

2893 

REP 

5 

2894 

2895 

REP 

1 


EBANK= TOO 
ttXNT 16/40.13 


LAST 677 

LAST 669 

I AST 654 

LAST 583 
LAST 682 

LAST 682 

LAST 669 
LAST 644 


16.2404 

16.2405 

16 . 2406 

16 . 2407 

16.2410 

16.2411 

16.2412 

16.2413 

16.2414 

16.2415 

16.2416 

16.2417 

16.2420 

16.2421 

16.2422 

16.2423 

16.2424 

16.2425 

16.2426 

16.2427 

16.2430 

16.2431 

16.2432 

16.2433 

16.2434 

16.2435 
16,2438 
16,2437 


0 6006 1 

S40.13 

TO 

INTPRET 

43001 1 


SBTPD 

SET 

00001 0 



OOD 

01068 0 



IMPULSW 

51575 1 


VLOAD 

ABvAL 

03721 0 



VGTIG 

77776 1 


EXIT 


3 4704 0 


CAP 

BIT7 

O 0008 1 


Ext®® 

08 031 0 


RXQR 

CHAN31 

7 4704 1 


MASK 

BIT7 

0 0008 1 


EXTEND 

1 2502 0 


BzF 

NOISDOUL 

0 6006 1 


TO 

INTPRET 

56325 0 


POOL 

DO/ 

36027 1 



S40.135 

03076 0 



WEIGHT/G 

72414 0 


BCN 

SLl 

00700 0 



NJETSFU3 

34430 1 



S40.130 

77621 1 

S40.130 

BDSU 


56325 0 


POOL 

DDV 

36013 0 



KlVAL 

03076 0 



WEKXT/G 

50021 1 


BDSU 

HSN 

00001 0 



00D 

34461 0 



S40.131 

41325 0 


POOL 

DMP 


ASSWB NO STEERING UNTIL FOUND OIHERWISE 
VELOCITY TO BE GAINED AT *7 
TEST +X ' TRANSLATION 


00D = MAG OF VGTIG AT +7 

compensation -for 2 jet ullage at +24 

MASS IN Ktws AT +16 

DOUBLE CORRECTION IP FOUR JETS 


00D = MAG OP VGTIG CORRECTED FOR ULLAGE 
M.NBTWCN-CS AT +24 


TOO LESS THAN 100 Cs 
02D = TOWPi AT +7 
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2898 

REP 

2 

LAST 

654 

16,2440 

00111 

0 



BOOT 

SPS FLO* RATE SC.AT B +3 KG/CS (SP, NOTE) 

2900 

REP 

1 



16,2441 

38 023 

0 



3.5SEC 

350 CS AT +14 

2901 





16,2442 

65221 

0 


BDSU 

POOL 


2902 

REP 

8 

LAST 

882 

16,2443 

03078 

0 



•BIGHT/O 


2903 

REP 

5 

LAST 

669 

16,2444 

03727 

0 



P 

P AT +7 

2904 





18,2445 

60405 

0 


DMP 

SR2 


2905 

REP 

1 



16,2446 

36025 

0 



5 SECOND 

500 CS AT +14 

2906 





16,2447 

41471 

0 


DDV 

PUSH 

04D = HMP2 

290T 





16,2450 

51021 

0 


BDSU 

BPL 


2908 





16,2451 

00003 

1 



02D 


2909 

REP 

1 



16,2452 

34475 

0 



S40.133 

TOO GREATER THAN 600 CS 

2910 





16,2453 

55345 

0 


DLCAD 

8DDV 


2911 





16,2454 

43205 

1 


CMP 

DAD 


2912 

REP 

2 

LAST 

683 

16,2455 

38025 

0 



5SECCND 

500 CS AT +14 

2913 

REP 

1 



16,2456 

36021 

1 



1SEC2D 

100 CS AT +14 

2914 





16,2457 

77650 

1 


GOTO 



2915 

REP 

1 



16,2460 

34466 

1 



S40.132 


2916 





16,2481 

41345 

0 

S40.131 

DLCAD 

DMP 

TOO LESS THAN 100 CS 

2917 

REP 

7 

LAST 

683 

16,2462 

03076 

0 



WEIGHT/G 


2918 





16,2483 

56215 

1 


DAD 

DDV 


2919 

REP 

1 



16,2464 

38015 

0 



K2VAL 

M.NEWTCN-CS AT +24 

2920 

REP 

1 



16,2465 

36017 

1 



K3VAI. 

M.NEWTCNS AT +10 

2921 





16,2466 

77778 

1 

S40.132 

EXIT 



2922 

REP 

18 

LAST 

682 

E7.1427 




EBANKr 

ICO 


2923 

REP 

7 

LAST 

347 

16,2467 

0 7226 

0 


1C 

TPAGREE 


2924 

REF 

271 

LAST 

657 

16,2470 

3 0154 

1 


CA 

MPAC 


2925 

REP 

67 

LAST 

657 

16,2471 

56 001 

0 


XCH 

L 


2926 

REP 

136 

LAST 

678 

18,2472 

3 4714 

1 


CA 

ZERO 


2927 

REP 

19 

LAST 

683 

16,2473 

53«430 

0 


PXCH 

TOO 

TOO IN CS AT +28 

2928 

REP 

1 



16,2474 

0 2477 

1 


TC 

540.134 


2929 





16,2475 

77414 

0 

S40.133 

CLEAR 

exit 

WILL STEER VEHICLE 

2930 

REP 

5 

LAST 

682 

16 , 2476 

01268 

1 



IMPULSW 


2931 

REP 

62 

LAST 

680 

16,2477 

0 5301 

0 

S40-134 

TC 

PHASCHNG 

KILL GROUP 3 

2932 





16,2500 

00003 

1 


OCT 

3 


2933 

REF 

90 

LAST 

881 

16,2501 

1 5112 

1 


TCP 

FNDOFJCB 


2934 

REF 

156 

LAST 

682 

16,2502 

0 8006 

1 

NOTADDUL TC 

intpret 


2935 





16,2503 

77650 

1 


GOTO 



2936 

REP 

2 

LAST 

882 

16,2504 

34431 

0 



540.130 +1 

DO NOT COMPENSATE FOR T SEC OP UUAGE 

2937 

REP 

2 

LAST 

877 

17,2000 




SETLOC 

DAPS7 


2938 





17,2012 




bank 



2939 

REP 

1 







COUNT 

17/40.13 


2940 





17,2012 

00001 

0 

K1VAL 

2DEC 

884.528BT B -23 

19885 LB-SEC, SC.AT B +23 NEWTCN-SEC/E +2 

2940 





17,2013 

27221 

0 





2941 





17,2014 

90000 

1 

K2VAL 

2DEC 

293.137805 B-23 

6590 IB-SEC, SC.AT B+23 NEWTCN-SEC/E+2 

2941 





17,2015 

22244 

0 
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2942 

2942 

2943 

2943 

2944 

2944 

2945 

2945 
2948 

2946 
A294602 
A294803 
*294604 


I 


IT, 2018 
1T.201T 

005T0 0 
33235 0 

K3VAL 

2 DEC 

11.TTB6688 8-9 

264T5 LBS, SC .AT B +9 NEWTCNS/E +4 

IT, 2020 
IT, 2021 

00144 0 
00000 1 

ISEC 2 D 

2 DEC 

100.0 B-u 

100.0 CS AT +14 

IT, 20 22 
IT, 2023 

01274 1 
00000 1 

3.5SEC 

2 DBC 

350.0 8-13 

350.0 CS AT +13 

IT , 2024 
IT, 202S 

O0T64 1 
00000 1 

5 S 8 CQND 

2 DGC 

500.0 8-14 

500 CS AT +14 

IT, 2028 
IT, 2027 

00000 1 
04263 1 

S40.135 

2 DEC 

69.6005183 8-23 

IMPUL® PRCM T.96 SECS OP 2-JET FIRING 


T.96<199-B)COS(10) LB-SEC, SC. AT 
B+23 NEWTCN-SEC/E ,2 (7 SEC ULLAGE 
TOGO, PLUS 0.96 SEC FRCM PIPTIMB) 
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L P40-P4T 

P294T NAM? S40.6 ODBAL DRIVE TEST AND/OR OISSAL TRIM 
R2948 MCD NO 5 DATE 9 MARCH, 1957 

R2949 MCD By ENGEL LOO SECTION P40-P47 

R2950 FUNCTIONAL DESCRIPTION 

R29S1 GIMBAL DRIVE TEST 0,+2,-2,0 DEGREE BJGINE COMINDS, AT 2 SECOND 

R2952 INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION 

R2953 OP GIKVAL MOTION CN GPI 

R2954 OIMBAL TRIM A PIER A 4 SECOND DELAY, ENGINE COMANDED TO 

R2955 PRE -COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION CN GPI. 

R2956 PRE40.6 RESTART ENTRY TO RE-DO S40.6, ONLY IP RCS IS ON - IP TVC 

R2957 IS NOT CN - PRIMARILY TO GET ACTUATORS TRIM'S) FOR IGNITION. 

R2958 BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR ICNITICN. 

RZ959 IF TVC IS ON (TVCDAPCN OR LATER) THEN HEDOIVC WILL TAKE CARE 

R2960 OP RESTARTING ACTUATORS. 

R2961 CALLING SEQUENCE 

R 2962 WAITLIST, WITH 2 CADR FOR S40.6 (OR PRE 40 . 6 ), WITH EHANK= CNTR 

R2963 NORMAL EXIT MOW _ FIxDELAY, TASOOvER 

R2964 SUBROUTINES CALLED 

R2965 OUTPUT C INTERNAL) 

R2968 FIXDELAY 

R2967 ALARM OR ABORT EXIT MODES - NCNE 
R2968 ERASEABLE INITIALIZATION REQUIRED 

R2969 CNTR = *0, NORMALLY SET BY THE P40 CALL AT TST.TRIM 

R2970 MHKRIMP... POSITIVE FOR GISfiAL DRIVE TEST AND OIMBAL TRIM (BOTH) 

R29T1 NEGATIVE FOR GIMBAL TRIM ONLY 

R29T2 PACTOFE, YACrOPP SC.AT 85.41 ArCSEC/BIT (V48N4B P.YTRIM) 

R29T3 .-SC CCNT._ SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT . _GNC. .) 

R2974 ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW 

R29T5 OUTPUT 

R29T6 TVCYAW, TVCPITCH (BITS RELEASED) 

R29T7 TVC ENABLE AND OPTICS ERROR COUNTER ENABLE 

R2978 DEBRIS 


USERaS PAGE NO. 46 


BT S3 


R2979 


7EMPR80, 

CNTR 







R2980 











2981 





17,2030 




BANK 

17 

2982 

REP 

2 

LAST 

677 

20,2000 




SE1LOC 

DAPSe 

2983 





20,2040 




bank 


2984 

REP 

4 

LAST 

677 

E6,1447 




E8ANK= 

CNTR 

2985 

REF 

1 







colnt 

20/S40-B 

2986 

REF 

22 

LAST 

653 

20,2040 

4 

0102 

0 

PFE 40.6 Cs 

FIACWRDe 

2987 

REF 

11 

LAST 

652 

20,2041 

7 

4105 

0 

MASK 

OCT60000 

2988 





20,2042 

0 

0006 

1 

EXTEND 


2989 





20,2043 

6 

2045 

1 

BZMF 

+2 

29892 

REP 

38 

LAST 

665 

20,2044 

1 

5213 

0 

TOF 

taskcver 

2990 

REP 

48 

LAST 

676 

20,2045 

4 

4712 

0 

CS 

btti 


RESTART ENTRY TO S40.6 (DO NOT PERMIT 
IF TVC, BITS 15, Y 4 = 1,0) 


TVC, REDOTVC WILL REESTABLISH INTERFACE 
RCS, SO DO S40.B, GIMTRIM ONLY 
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P40-P4T 


REP 3 LAST 641 
REP 49 LAST 885 
HEP 5 LAST 685 


2995 

HEP 

137 

LAST 

683 

2996 

REF 

24 

LAST 

655 

2997 

REP 

27 

LAST 

647 

2996 





2999 

REP 

27 

LAST 

655 

3000 

HEP 

1 



3001 





3002 

HEP 

28 

LAST 

686 

3003 

REF 

8 

LAST 

665 

3004 





3005 

REF 

28 

LAST 

886 

3006 





3007 

HEP 

29 

LAST 

686 

3008 

REF 

9 

LAST 

686 

3009 





3010 

REP 

7 

LAST 

686 

3011 

HEP 

1 



*3012 





3013 

REF 

4 

LAST 

686 

3014 

REF 

8 

LAST 

686 

3015 





3016 

REP 

2 

LAST 

686 

3017 

REF 138 

LAST 

686 

3018 

REP 

9 

LAST 

686 

3019 

REP 

1 



3020 

REP 

1 



3021 

REP 

1 



3022 

REP 

2 

LAST 

686 

3023 

REP 

2 

LAST 

686 

3024 

REP 

3 

LAST 

686 

3025 

REP 

10 

LAST 

686 


20,2047 

20,2050 

BB.144T 


20,2062 


20,2067 


20,2100 

20,2101 

20,2102 

20.2103 

20.2104 

20.2105 


20,2106 4 1447 0 


55«445 1 

TS 

MFKRTMP 

3 4712 1 

CAP 

BITl 

55*447 0 

TS 

CNTR 


BBANK 

= CNTR 

4 4714 0 S40.8 

CS 

ZERO 

55*303 1 

TS 

OPTIND 

4 4711 0 

Cs 

BIT2 

0 0006 1 

Extend 

03 012 1 

wand 

CHAN12 

3 2143 0 

CAP 

OCT02200 

0 0008 1 

extsnd 

05 012 1 

WOR 

CHAN12 

0 5156 0 

TC 

EIXDELAY 

00006 1 

DEC 

6 

3 4711 1 

CAP 

BIT2 

0 0008 1 

extend 

05 012 1 

wqr 

CHAN 12 

0 5156 0 

tc 

EIXDELAY 

00002 0 

DBC 

2 

11*447 0 RSTRTST 

CCS 

CNTR 

1 2131 1 

TCP 

OIMTRIM +; 

31*445 0 

CAE 

MRKRTMP 

55«447 0 

TS 

CNTR 

0 0006 1 

EXTEND 


8 2127 1 

BzMP 

OIMTRIM 

4 4714 0 GDTSETUP Cs 

ZERO 

55«447 0 

TS 

CNTR 

3 2145 0 G POTEST CAP 

♦ 2ACTDEG 

0 2114 1 

TC 

OUTPUT 

3 2144 1 

CAP 

-4ACTDEG 

0 2114 1 

1C 

OUTPUT 

3 2145 0 

CAP 

♦ ZACTOEG 

0 2114 1 

TC 

OUTPUT 


20’35 OCT. 28,1968 PANDORA .080 PACE 686 
USBIUS PACE NO. 47 E6 S3 


FOR REVISED S40.6 TIMING FOR RESTARTS 
TO INDICATE A RESTART ENTRY (CNTR IS 
NORMALLY +0, BY 840 6) 


BE TBIT OPTICS ACTIVITY 


DISBNABLE OPTICS ERROR COUNTERS (ZERO, 
AND INHIBIT PULSE TRANSMISSION 
NORMAL STATE) 

TVC BNABLE C SPS SERVO AMPS SEE DAC 

VOLTAGES) AND DISENGAGE OPTICS/DAC 


60MS PROCHXJRAL DELAY UOMS MINIMUM) FOR 

relay latching 
bmble optics error counters 


20 MS PROCEOjral DELAY ( 4MS MINIMUM) FOR 
REUAY LATCHING 

check for restart entry (PRE 40.6) 

HESTART ENTRY BYPASS 4 SECOND DELAY 

TST, TRIM SETS +0 QN NORMAL ENTRY 

CHEQc FOR TEST/TRIM OR TRIM ONLY 

MRCRIMP SAVES CNTR FOR RESTARTS 

(TRIM ONLY) 

GMIAL drive test SETUP, FOR PITCH 

OB«AL DRIVE TEST, 1ST INCREMENT 
CLEAVES GIMBAL AT +2 DEG) 

2ND INCREMENT (LEAVES GIMBAL AT -2) 

31® INCREMENT (LEAVES GIMBAL AT -0) 

CHECK for COMPLETION OP YAW TEST 




ASSS4BIE REVISION 249 OP AQC PROGRAM COLOSSUS By NASA 2021111-041 20’35 OCT. 28,1988 PANDORA .080 PAGE 887 


P40-P4T 


USER«S PACE NO. 


2028 

REP 

157 

LAST 

876 

20,2107 

10 000 

0 

CCS 

A 

3027 

REP 

3 

LAST 

686 

20,2110 

1 2127 

0 

TCP 

GIMTRIM 

3028 

REP 

50 

LAST 

686 

20,2111 

4 4712 

0 

cs 

BIT1 

3029 

REP 

11 

LAST 

686 

20,2112 

55=447 

0 

TS 

CNTR 

3030 

HEP 

1 



20,2113 

1 2100 

0 

TCP 

GIMHEST 

3031 





20,2114 

0 0006 

1 

OUTPUT EXT®TO 


3032 

REP 

4 

LAST 

384 

20,2115 

23=146 

0 

CKCH 

TEMPR80 

3033 

REP 

12 

LAST 

687 

20,2116 

51=447 

1 

INDEX 

CNTR 

3034 

REP 

1 



20,2117 

54 054 

1 

TS 

TVCPITCH 

3035 

REP 

13 

LAST 

687 

20,2120 

51=447 

1 

INDEX 

CNTR 

3036 

REP 

21 

LAST 

659 

20,2121 

3 4700 

1 

CAP 

BITll 

3037 





20,2122 

0 0006 

1 

EXTEND 


3038 

REP 

5 

LAST 

179 

20,2123 

05 014 

1 

WOR 

CHAN 14 

3039 

REP 

10 

LAST 

686 

20,2124 

0 5158 

0 

TC 

pixdblay 

3040 





20,2125 

00310 

0 

DEC 

200 

3041 

REP 

5 

LAST 

687 

20,2126 

0 1146 

0 

TC 

TBMPR60 

3042 

REP 

11 

LAST 

687 

20,2127 

0 5156 

0 

GIMTRIM TC 

pixdblay 

3043 





20,2130 

00620 

0 

DEC 

400 

3044 

REP 

139 

LAST 

686 

20,2131 

4 4714 

0 

♦2 CS 

ZERO 

3045 

REP 

14 

LAST 

671 

20,2132 

6 1425 

0 

AD 

PACTOPP 

3048 

REP 

2 

LAST 

687 

20,2133 

54 054 

1 

TS 

TVCPITCH 

3047 

REP 

140 

LAST 

687 

20,2134 

4 4714 

0 

CS 

ZERO 

3048 

REP 

4 

LAST 

871 

20,2135 

6 1426 

0 

AD 

YACTOPF 

3049 

REF 

1 



20,2136 

54 053 

0 

TS 

TVCYAW 

3050 

REP 

2 

LAST 

165 

20,2137 

3 4755 

1 

CAP 

PRI08 

3051 





20,2140 

0 0006 

1 

EXTEND 


3052 

REP 

6 

LAST 

687 

20,2141 

05 014 

1 

WOR 

CHAN14 

3053 

REP 

39 

LAST 

685 

20,2142 

1 5213 

0 

ENDS40.6 TCP 

TASKWER 

30535 





20,2143 

02200 

1 

OCT02200 OCT 

02200 

3054 





20,2144 

77527 

1 

-4ACTDEG DEC 

-168 

3055 





20,2145 

00124 

0 

♦ 2ACTDBG DEC 

+84 

R3056 

CALLED BY . _DGNCUtf46 

. . (VERB 

48>, OR DIRECTLY BY , .FRESHDAP. . (Rt 

3058 

REP 

1 






COUNT 

20/S41.2 

3059 

REP 

52 

LAST 

676 

20,2146 

3 1466 

1 

S41.2 CA 

DAPDATRl 


COMPLETED, 00 TO GIMBAL TRIM ROUTINE 
SET UP YAW TEST 

POR YAW TEST 

OUTPUT THE INCREMENT SAVE O 


WAIT 2 SEC, WHILE ASTRONAUT VERIFIES 
GIMBAL MOTION CN GPI 

WAIT 4 SECONDS BEFORE GIMBAL TRIM 


PICK UP TRIM VALUES AND OUTPUT THEM 

(AVOID ,0> ENTRY POINT FROM RSTRTST 

cn a restart, to avoid 4SEC delay 


RELEASE THE COUNTERS, BITS 11,12 


BITS 8,11 FOR CHANNEL 12 TVC/OPTICS 
-2( +2ACTDEG) , WHOLE BITS, NO ROUNIXJP 
+2 DEG, SC .AT 85.41 ARCSEC/BIT ( +84D) 
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P40-P47 


REF 22 LAST 852 
REP 158 LAST 687 
REP 4 LAST 409 


REP 29 LAST 686 
REP 13 LAST 665 
REP 14 LAST 688 


REP 54 LAST 688 
REP 28 LAST 643 


REP 1 
REF i 

REF 4 LAST 643 


REP 55 LAST 688 
REP 39 LAST 682 


REP 82 LAST 680 
REP 2 LAST 107 
REP 58 LAST 688 
REF 27 LAST 418 


REP 83 LAST 688 
REP 3 LAST 688 


3098 

3097 

3098 

3099 REF is (AST 584 

3100 REP 33 LAST 654 

3101 REP 16 LAST 688 




20*35 OCT. 28,1968 PANDORA .080 PACE 688 
USBR.S PACE NO. 49 B6 S3 


REP 53 LAST 887 
REP 10 LAST 647 
REF 1 


20.2153 

20.2154 

20.2155 

20.2156 

20.2157 


20,2163 


REP 15 LAST 688 
REP 30 LAST 688 
REP 16 LAST 688 


20.2164 

20.2165 
20,2168 


7 6214 1 

MASK 

THREB 


6 0000 1 

AD 

A 


55*130 0 

TS 

RATEINDX 


0 0004 0 

INHINT 



31*468 1 

CAE 

DAPOATRi 

IS LEM ATTACHHO 

7 4371 1 

MASK 

PRIO30 


6 7705 1 

AD 

-8IT14 

(0CTS7777) 

0 0006 1 

EXTEND 



1 2164 1 

BzP 

together 

YES 

4 4711 0 

CS 

BIT2 

NO, UNSET FLAG 

7 0103 1 

mask 

PLAO»M>7 


54 103 1 

TS 

FLAOWHDt 


1 2167 1 

TCP 

♦4 


4 0103 1 

TOGETHER CS 

flagwro? 

attached, set fl 

7 4711 0 

MASC 

bit2 


26 103 1 

ADS 

plaowri>7 



20,2167 0 0003 1 


20.2170 

20.2171 

20.2172 

20.2173 

20.2174 

20.2175 

20.2176 


3 1488 1 
7 4707 1 
0 0006 1 
6 2175 0 
3 2275 0 
6 2276 0 
55*655 1 


CA DAPOATRi 

MASK BIT4 
EXTEND 
BZMP *2 
CA DEC409 

AD DEC46 

TS ADB 


DEC 48 MEANS NARROW DO 
DEC 455 M3ANS WIDE DO 




20,2177 

20,2200 

20,2201 

20,2202 

20.2203 

20.2204 

20.2205 

20.2206 
20,2207 
20,2210 
20,2211 
20,2212 


3 1466 1 
7 4704 1 
0 0006 1 

6 2204 0 
3 4712 1 
55«631 0 

3 1466 1 

7 4701 1 
0 0006 1 
6 2212 1 

4 4712 0 
27*631 0 


CA 

mask 

extend 

BzMF 

CA 

TS 

CA 

MASK 

EXTEND 

BZMF 

CS 

ADS 


DAPOATRi 

BIT? 


♦2 

CNE 

XTRANS 

DAPDATRi 

bitto 


*2 

CUE 

XTRANS 


20.2213 0 0004 0 

20.2214 0 0008 1 


20.2215 

20.2216 
20,2217 
20,2220 


1 2222 0 
4 0075 1 
7 4874 1 
26 075 1 


INHINT 
EXTEND 
BZF +5 

CS FLAGWRDi 

MASK BIT15 
ADS FIAGWRDi 


Cl .EAR NJETSFU3 (4 JETS, OR NO JETS) 

SET NJETSFITt (2 JETS, AC OR BD a IADS) 
NJETSP1X1 = 1 FOR 2 JET IX.IAGE (AC OR RD) 
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L 

P40 

-P47 






\ 


3102 





20,2221 

1 2225 

1 

TCP 

♦4 

3103 

RBP 

34 

LAST 

688 

20,2222 

4 4674 

1 

Cs 

BIT15 

3104 

REF 

17 

LAST 

688 

20,2223 

7 0075 

1 

MASK 

PLA&YHD1 

3105 

REF 

18 

LAST 

689 

20,2224 

54 075 

1 

TS 

FLACWRDl 

3100 





20,2225 

0 0003 

1 

KSLINT 

31 OT 

REF 

2 

LAST 

2T4 

20,2226 

3 1467 

0 

CA 

DAPDATO2 

3108 

REF 

30 

LAST 

665 

20,2227 

7 4676 

0 

MASK 

BIT13 

3100 





20,2230 

0 0006 

1 

Exrero 


3110 





20,2231 

6 2233 

1 

BzMP 

♦2 

3111 





20,2232 

1 2234 

1 

TCP 

♦2 

3112 

REP 

84 

LAST 

688 

20,2233 

4 4712 

0 

CS 

CNE 

3113 





20,2234 

4 0000 

0 

CCM 


3114 

REF 

2 

LAST 

107 

20,2235 

55*630 

1 

TS 

ACQRBD 

3115 

REP 

3 

LAST 

689 

20,2236 

3 1467 

0 

CA 

DAPDATR2 

3110 

RBP 

28 

LAST 

688 

20,2237 

7 4701 

1 

mask 

8IT10 

31 IT 

REF 

159 

LAST 

688 

20,2240 

10 000 

0 

CCS 

A 

3118 





20,2241 

1 2245 

1 

TCP 

♦4 

3119 

RBP 

85 

LAST 

689 

20,2242 

3 4712 

1 

CA 

CNE 

3120 

REP 

2 

LAST 

107 

20,2243 

55*626 

0 

TS 

RACPAIL 

3121 

REF 

1 



20,2244 

1 2255 

0 

TCP 

BDFAIL 

3122 

REF 

141 

LAST 

68T 

20,2245 

3 4714 

1 

CA 

zero 

3123 

REP 

3 

LAST 

689 

20,2246 

55*626 

0 

TS 

RACPAIL 

3124 

REP 

4 

LAST 

689 

20,2247 

3 1467 

0 

CA 

DAPDATR2 

3125 

REP 

29 

LAST 

688 

20,2250 

7 4707 

1 

MASK 

BIT4 

3128 

REF 

160 

LAST 

689 

20,2251 

10 000 

0 

CCS 

A 

31 ZT 

REP 

2 

LAST 

689 

20,2252 

1 2255 

0 

TCP 

BDFAIL 

3128 

REP 

86 

LAST 

689 

20,2253 

4 4712 

0 

Cs 

CNE 

3129 

REF 

4 

LAST 

689 

20,2254 

55*626 

0 

TS 

RACPAIL 

3130 

REP 

5 

LAST 

689 

20,2255 

3 1467 

0 

BDFAIL CA 

DAPDATR2 

3131 

REF 

40 

LAST 

688 

20,2256 

7 4704 

1 

MAac 

BIT! 

3132 

REP 

161 

LAST 

689 

20,2257 

10 000 

0 

CCS 

A 

3133 





20,2260 

1 2264 

1 

TCP 

+4 

3134 

REP 

87 

LAST 

889 

20,2261 

3 4712 

1 

CA 

CNE 

3135 

REP 

2 

LAST 

107 

20,2262 

55*627 

1 

TS 

H8DFAIL 

3130 

REP 

165 

LAST 

662 

20,2263 

0 0002 

0 

1C 

0 

31 3T 

REP 

142 

LAST 

689 

20,2264 

3 4714 

1 

CA 

zero 

3138 

REP 

3 

LAST 

689 

20,2265 

55*627 

1 

TS 

RBDFAIL 

3139 

REP 

6 

LAST 

689 

20,2266 

3 1467 

0 

CA 

DAPOATW2 

3140 

REP 

51 

LAST 

687 

20,2267 

7 4712 

0 

MASK 

BITl 

3141 

RBP 

162 

LAST 

689 

20,2270 

10 000 

0 

CCS 

A 

3142 

HEP 

166 

LAST 

689 

20,2271 

0 0002 

0 

TC 

0 

3143 

REP 

88 

LAST 

889 

20,2272 

4 4712 

0 

, CS 

CNE 

3144 

REP 

4 

LAST 

689 

20,2273 

55*627 

1 

TS 

RBDFAIL 

3145 

REP 

167 

LAST 

689 

20,2274 

0 0002 

0 

TC 

0 

R3146 

DAPFIG ENTRY VIA TC 

POSTJUMP AS JOB KRCM 

. .STABLISL. . (VERB 48) 

314T 





42,3521 



BANK 

42 

3148 

REP 

2 

LAST 

247 

42,2000 



SEILXC 

EXTVBS 


20*35 OCT. 28,1968 PANDORA .080 PAGE 689 
USBHaS PA® NO. 50 BO S3 

NJRTSPLG = 0 FOR 4 JET (OR 0 JET) ULLAGE 


MINUS FOR A-C.PLUS FOR B-D 



*»■ Assam; revision 249 qp agc program colossus by nasa 2021111-041 

L P40-P4T 


3149 





42,3521 



BAt* 


3150 

REP 

25 

LAST 

665 

42,3521 

4 4702 1 

DApFIG 

cs 

bits 

3151 





42,3522 

0 0006 1 


EXTEND 

3152 

REP 

30 

IAST 

686 

42,3523 

03 012 1 


WAND 

chan 12 

3153 

BH* 

57 

LAST 

688 

42,3524 

31=486 1 


CAE 

DAFOATRl 

3154 





42,3525 

0 0006 1 


EXTEND 

3155 

9SV 

23 

LAST 

645 

42,3526 

7 4710 1 


MP 

BIT3 

3158 

RKP 

23 

LAST 

688 

42,3527 

7 8214 1 


MASK 

THREE 

3157 

REP 

163 

LAST 

689 

42,3530 

50 000 1 


INDEX 

A 

3158 





42,3531 

1 3532 1 


TCP 

♦1 

3159 

REP 

1 



42,3532 

1 3544 0 


TOP 

NCDAPUP 

3160 

REP 

1 



42,3533 

1 3537 1 


TCP 

HCSTAPUP 

3161 

REP 

2 

LAST 

690 

42,3534 

1 3537 1 


TCP 

RCS3APUP 

3162 

HEP 

42 

LAST 

657 

42,3535 

0 4574 0 


TC 

POST JUMP 

3163 

RHP 

1 



42,3538 

67211 1 


CADR 

satsikcn 

3164 





42,3537 

0 0004 0 

HCSDAPUP INHINT 

3165 

REP 

29 

LAST 

664 

42,3540 

0 4633 0 


tcr 

ibnkcail, 

3166 

REP 

5 

LAST 

664 

42,3541 

42010 0 


CADR 

RCS3APCN 

3167 





42,3542 

0 0003 1 


RELINT 

3168 

REP 

1 



42,3543 

1 3561 1 


TCP 

BTOFIG 

3169 





42,3544 

0 0006 1 

NCDAPUP 

EXTEND 


3170 

REP 

1 



42,3545 

3 3564 0 


DCA 

T5IDLDAP 

3171 

REP 

10 

LAST 

652 

42,3546 

53=313 0 


PxCH 

TSLOC 

3172 

REP 

44 

LAST 

664 

42,3547 

0 5447 0 


TC 

DOWNFTAG 

31T2S 

REP 

1 



42,3550 

00132 1 


ADRBS 

DAPBITI 

3173 

REP 

45 

LAST 

690 

42,3551 

0 5447 0 


TC 

DOWNF1AG 

31732 

REP 

1 



42,3552 

00133 0 


ACRES 

DAPBIT2 

31734 





42,355 3 

0 0004 0 


INHINT 


31735 

RHP 

30 

LAST 

690 

42,3554 

0 4633 0 


TC 

IBNKCALL 

31736 

REP 

2 

LAST 

539 

42,3555 

42618 0 


CADR 

ZEROJET 

31738 





42,3556 

0 0003 1 


RELINT 


3174 

REP 

52 

LAST 

689 

42,3557 

3 4712 1 


CAP 

BITi 

3175 

RHP 

6 

LAST 

586 

42,3560 

55«332 0 


TS 

HCLDFLAG 

3176 

HEP 

43 

LAST 

690 

42,3561 

0 4574 0 

ENDFIG 

TC 

POST JUMP 

3177 

REP 

28 

LAST 

539 

42,356 2 

88121 0 


CADR 

GOPIN 

3178 

HBP 

15 

LAST 

687 

E6.142S 



EBANK= 

pactofp 

3179 

RHP 

5 

LAST 

646 

42,3563 

03143 1 

tsidldap 

2CADR 

T5IDLOC 

3179 





42,3564 

12106 0 




3180 





17,2030 



bank 

17 

3181 

REP 

3 

LAST 

685 

20,2000 



setloc 

DAPS6 

3182 





20,2275 



banac 



3183 

3184 
R3185 



20*35 OCT. 28,1968 PANDORA .080 PAGE 890 
US8IWS PAGE NO. 51 E6 S3 


TURN OFF SIvB TAKEO/BR 


determine VEHICLE CCNPIOURATICN 


RIGHT SIIPT 4 OCTAL DIGITS 
I IN CASE BIT 15 IS USED) 


branch based cn ccnfig 


CM activate ncdap 

c®4 activate RCSIAP 

C 34 /LEM. .ACTIVATE RC.DAP 


CALL TO ACTIVATE RCSDAP, AND RETURN 


CANE IN VIA V46, GO CUT VIA GOP IN 
TS IDLE FOR NODAP (DCNT WORRY ABOUT T) 


RESET 15-USAGE FLAGS FOR NCDAP 
BIT 15 FLAG 6 = 0 


BIT 14 FLAG 6 = 0 



ZERO JET CHANNELS IN 14 MS AND THEN 
LEAVE THE TB CLOCK DISABLED. 


KIIL KALCMANU JOB 

CAME IN VIA V46, GO OUT VIA GOPIN 


20,2275 00831 0 DEC409 DEC 409 

20,2278 00058 1 DGC46 DEC 46 

CAILH) BY . DCNCXIN47 . . (VERB 4g ), OR DIRECTLY BY . .FRESHDAP (RCSDAP) 
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L 

P40- 

-P4T 








3186 

REP 

1 



20,2277 

31«470 0 

340.14 

CAE 

IXX 

3187 





20,2300 

0 0006 1 


ext©® 


3188 

REP 

1 



20,2301 

7 2324 1 


mp 

CCNTCNE 

3189 

REP 

2 

LAST 

107 

20,2302 

55«823 0 


TS 

J/M 

3190 

REP 

1 



20,2303 

3 1471 1 


CA 

IAVO 

3191 





20,2304 

0 0006 1 


EXTEND 


3192 

REP 

2 

LAST 

691 

20,2305 

7 2324 1 


MP 

CCNTCNE 

3193 

REP 

2 

LAST 

107 

20,2308 

55*624 1 


TS 

J/Ml 

3194 

REP 

2 

LAST 

107 

20,2307 

55«6 25 0 


TS 

J/»2 

3195 





20,2310 

0 0006 1 


EXT©® 


3196 

REP 

1 



20,2311 

3 2326 1 


DCA 

CCNT1WO 

3197 





20,2312 

0 0006 1 


EXTB® 


3198 

REP 

2 

LAST 

691 

20,2313 

11«470 1 


Dv 

IXX 

3199 

REP 

2 

LAST 

107 

20,2314 

55*620 0 


TS 

KMJ 

3200 





20,2315 

0 0006 1 


EXT©® 


3201 

REP 

2 

LAST 

691 

20,2316 

3 2326 1 


DCA 

CCNTIWO 

3202 





20,2317 

0 0006 1 


EXT©® 


3203 

REF 

2 

LAST 

691 

20,2320 

11*471 0 


DV 

TAvG 

3204 

REP 

2 

LAST 

107 

20,2321 

S5«621 1 


TS 

KMJl 

3205 

REP 

2 

LAST 

107 

20,2322 

5S«622 1 


TS 

KMJ2 

3206 

REP 

168 

LAST 

689 

20,2323 

0 0002 0 


1 C 

0 

3207 





20,2324 

25137 0 

CCNTCNE 

DEC 

-662034 

3208 





20,2325 

00023 0 

CCNT1WO 

2 DEC 

.00118 

3208 





20,2326 

12522 1 




3209 

REF 

1 






COUNT 

24/TVNG 

3210 





31,3215 



bank 

31 

3211 

REP 

3 

LAST 

670 

24,2000 



SBTLOC 

P40S 

3212 





24,3677 



BANK 


3213 





24,3877 

37405 1 

POS-2.5 

OCT 

37405 

3214 

REP 

58 

LAST 

690 

E6.1466 



EBANK= 

DAPDATRi 

3215 

REP 

1 



24,3700 

02000 0 

RCSCADR 

2 CADR 

RCSUP 

3215 

REP 

1 



24,3701 

42106 0 




3216 





24,3702 

37704 0 

6SECT5 

OCT 

37704 

3218 

REP 

1 






COUNT 

21 /RCSUP 

3219 





20,2327 



BANK 

20 

3220 

REP 

1 



21,2000 



SBTLOC DAPS3 

3221 





21,2000 



BANK 



US 8 R.S PAGE NO. 52 B# 34 

RCS ©(TRY 


2 PI/M 


3222 RHP 6 LAST 57T 21,2000 22 016 0 RCSUP 


LXCH BANKRUPT 


*SS»BLE REVISKW 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 

L P40-P47 


L 


3223 

3224 

REP 

6 

LAST 

5TT 

21,2001 

21,2002 

0 0006 1 
22 012 1 


EXTEND 

OCCH QRUPT 

322S 

REP 

6 

LAST 

690 

21,2003 

0 2010 1 


TCr 

RCSDAPCN 

3226 

REP 

21 

LAST 

540 

21,2004 

1 5222 1 


TCP 

RESUME 

322T 

3228 

3228 

3229 

REP 

REP 

59 

2 

LAST- 

LAST 

691 

200 

E©, 1466 

21.2005 

21.2006 
21,2007 

02106 1 
42106 0 
37704 0 

rcsaddr 

O. 6 SEC 15 

esank= 

2 CADR 

i OCT 

: DAPDATRl 

bcsatt 

37704 

A3230 










3231 

3232 

3233 

REP 

REP 

REP 

1 

T 

1 

LAST 

652 

21,2010 

21,2011 

21,2012 

3 2007 1 
54 030 0 
55*485 0 

RCSDAptN -cap 
+1 TS 

TS 

0.6SECT5 

TINES 

15 PHASE 

3234 

3235 
3238 

REP 

REP 

HEP 

10 

24 

11 

LAST 

LAST 

LAST 

539 

690 

692 

21.2013 

21.2014 

21.2015 

4 1501 0 

7 4710 1 
27*501 0 


CS 

MASK 

ADS 

RCSPLAGS 

BIT3 

RCSFLAGS 

323T 

3238 

3239 

REP 

REF 

1 

11 

LAST 

690 

21,2016 

21,2017 

21,2020 

0 0006 1 

3 2006 0 
53*313 0 


EXTEND 

DCA 

DxCH 

RCSADDR 

T5LOC 

3240 

3241 

3242 

3243 

REP 

REF 

REP 

REP 

12 

23 

40 

24 

LAST 

LAST 

LAST 

LAST 

685 

685 

676 

692 

21,2021 

21,2022 

21.2023 

21.2024 

4 4105 0 

7 0102 0 

6 4675 1 

54 102 0 


CS 

MASK 

AD 

TS 

OCTBOOOO 

PLAOffiDe 

BIT14 

PLAOvflDe 

3244 

HEP 169 

LAST 

691 

21,2025 

0 0002 0 


TC 

0 




20’35 OCT. 28,1968 BWWRA .080 PAGE 692 
USER. 3 PAGE MO. 53 Be 84 

ACTIVATE RCs DAP 


hcswpcn ENTRY HIST B8 UNDER int- inhibit 
0.6 SEC ALLOWS TVOBXBC/rOLLDAP TO DIB 
entry ercm rootopoo 

WILL CAUSE FRBSflMP f »J) 

SET BIT3 TO REINITIALIZE FDAI ERROR 

display, in case sc ccnt switch 

IN SCS NOT CMC COJIDEMCDB PRIMARY) 


(HCSATT) 

SET BITS 15,14 TO 0] TO INDICATE 
T5 TAKEOVER BY HCSDAP 

KILLS TVCExEC AND BGLLDAP STARTS 

RETURN TO CALLER CTVCnAPOP OR RCsDAPUP) 






